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 :
- 'Ce script va permettre de récupérer Le nom de la machine + le nom de session + la version d'outlook'
- 'Récupére le nom de l'utilisateur connecté (variable: user) '
- '-------------------------------------'
- Set wshnetwork = WScript.CreateObject("WScript.Network" )
- user = wshnetwork.username
- domain = wshnetwork.userdomain
- computer = wshnetwork.computername
- 'Récupére la version d'Outlook '
- '-------------------------------------'
- strComputer = "."
- Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
- Set colSoftware = objWMIService.ExecQuery ("SELECT * FROM Win32_Product where Caption like 'Microsoft Office Outlook%'" )
- 'If colSoftware.Count > 0 Then'
- VerOutlook = ""
- For Each objSoftware in colSoftware
- VerOutlook = VerOutlook & VbCrLf & objSoftware.Caption
- ' Wscript.Echo objSoftware.Caption & vbtab & objSoftware.Version'
- Next
- 'Version de l'OS (variable: systeme)
- '----------------------------------'
- strComputer = "."
- Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
- Set oss = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem" )
- For Each os in oss
- systeme = os.caption
- Next
- 'Wscript.Echo systeme
- 'Nom de l'ordinateur Variable: nom_ordinateur
- '-------------------------------
- strComputer = "."
- Set wshNetwork = WScript.CreateObject( "WScript.Network" )
- nom_ordinateur = wshNetwork.ComputerName
- 'WScript.Echo nom_ordinateur
- 'Ecriture dans le fichier texte
- 'Recuperation du dossier du script
- dossier_du_script = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))
- 'WScript.Echo dossier_du_script
-
- nom_du_fichier = dossier_du_script & "outlook.txt"
- 'WScript.Echo nom_du_fichier
- Const ForWriting = 8
- Set f = fso.OpenTextFile(nom_du_fichier, ForWriting,true)
- 'Le script écrit dans le fichier texte ICI
- 'VbCrLf (retour chariot)
- 'nom_ordinateur = Nom de l'ordinateur (Netbios)
- 'systeme = Version de Windows
- 'Nom d'utilisateur'
- 'Version d'Outlook"
- f.write("-------------------" & VbCrLf & systeme & VbCrLf & user & " @ "& nom_ordinateur & VerOutlook & VbCrLf & "-------------------" )
- Wscript.Quit
|
Merci d'avance.
Message édité par deepqck le 14-05-2014 à 14:53:18
