[RESOLU] Objet recquis 'fso'

Objet recquis 'fso' [RESOLU] - VB/VBA/VBS - Programmation

Marsh Posté le 14-05-2014 à 14:18:37    

Bonjour à tous,
 
J'ai récupéré un script .VBS sur le net sous une première version que j'ai adapté à mes besoins.  
 
J'ai pris la même base seulement pour récupérer certaines infos via une gpo.  
 
Néanmoins, ça cloche...  
Quand je lance mon .VBS j'ai une erreur qui m'annonce Ligne 55 ; Carac 5 - Erreur: Objet recquis 'fso'.  
Un œil avisé peut être ?  
 

Code :
  1. 'Ce script va permettre de récupérer Le nom de la machine + le nom de session + la version d'outlook'
  2. 'Récupére le nom de l'utilisateur connecté (variable: user) '
  3. '-------------------------------------'   
  4. Set wshnetwork = WScript.CreateObject("WScript.Network" )
  5. user = wshnetwork.username
  6. domain = wshnetwork.userdomain
  7. computer = wshnetwork.computername
  8. 'Récupére la version d'Outlook '
  9. '-------------------------------------'
  10. strComputer = "."
  11. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  12. Set colSoftware = objWMIService.ExecQuery ("SELECT * FROM Win32_Product where Caption like 'Microsoft Office Outlook%'" )
  13. 'If colSoftware.Count > 0 Then'
  14. VerOutlook = ""
  15. For Each objSoftware in colSoftware
  16.  VerOutlook = VerOutlook & VbCrLf & objSoftware.Caption
  17.       ' Wscript.Echo objSoftware.Caption & vbtab & objSoftware.Version'
  18.     Next
  19. 'Version de l'OS (variable: systeme)
  20. '----------------------------------'
  21. strComputer = "."
  22. Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
  23. Set oss = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem" )
  24. For Each os in oss
  25. systeme = os.caption
  26. Next
  27. 'Wscript.Echo systeme
  28. 'Nom de l'ordinateur Variable: nom_ordinateur
  29. '-------------------------------
  30. strComputer = "."
  31. Set wshNetwork = WScript.CreateObject( "WScript.Network" )
  32. nom_ordinateur = wshNetwork.ComputerName
  33. 'WScript.Echo nom_ordinateur
  34. 'Ecriture dans le fichier texte
  35. 'Recuperation du dossier du script
  36. dossier_du_script = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))
  37. 'WScript.Echo dossier_du_script
  38.    
  39.     nom_du_fichier = dossier_du_script & "outlook.txt"
  40.     'WScript.Echo nom_du_fichier
  41. Const ForWriting = 8
  42.     Set f = fso.OpenTextFile(nom_du_fichier, ForWriting,true)
  43. 'Le script écrit dans le fichier texte ICI
  44. 'VbCrLf (retour chariot)
  45. 'nom_ordinateur = Nom de l'ordinateur (Netbios)
  46. 'systeme = Version de Windows
  47. 'Nom d'utilisateur'
  48. 'Version d'Outlook"
  49. f.write("-------------------" & VbCrLf & systeme & VbCrLf & user & " @ "& nom_ordinateur & VerOutlook & VbCrLf & "-------------------" )
  50. Wscript.Quit


 
Merci d'avance.


Message édité par deepqck le 14-05-2014 à 14:53:18
Reply

Marsh Posté le 14-05-2014 à 14:18:37   

Reply

Marsh Posté le 14-05-2014 à 14:42:10    

Salut, un oubli :

Set FSO = CreateObject("Scripting.FileSystemObject" )


---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Marsh Posté le 14-05-2014 à 14:52:03    

Salut,
 
T'es un chef !  
L'erreur bête qui m'a fait perdre 1h ...  
 
Merci :D

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed