Bonjour,
J'essai de générer un ficheir text via ce script vbs, mais le fichier ne se crée pas sous XP.
Sous Seven c'est ok.
Pouvez-vous m'aider ?
Code :
- Set objFSO = CreateObject("Scripting.FileSystemObject" )
- Set objShell = Wscript.Createobject ("WScript.Shell" )
- Set wshNetwork = CreateObject("Wscript.Network" )
- Nom_User = wshNetwork.UserName
- OsType = objShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE" )
- Select Case OsType
- Case "AMD64"
- AppDataPath = objShell.ExpandEnvironmentStrings("%APPDATA%" )
- MsgBox "64 Bits"
- Case Else
- AppDataPath = objShell.ExpandEnvironmentStrings("%USERPROFILE%" )
- End Select
- MsgBox AppDataPath
- If Nom_User = "conf-install" Then
- ElseIf Nom_User = "administrateur" Then
- Else
- objShell.run "cmd.exe /c echo test >" & AppDataPath & "\Inventaire-Logiciels.txt",0,true
- End If
|
Message édité par Eysinem le 20-12-2013 à 11:57:41
