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