Problème Création fichier texte via vbs

Problème Création fichier texte via vbs - VB/VBA/VBS - Programmation

Marsh Posté le 13-12-2013 à 18:00:02    

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 :
  1. Set objFSO = CreateObject("Scripting.FileSystemObject" )
  2. Set objShell = Wscript.Createobject ("WScript.Shell" )
  3. Set wshNetwork = CreateObject("Wscript.Network" )
  4. Nom_User = wshNetwork.UserName
  5. OsType = objShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE" )
  7. Select Case OsType
  8. Case "AMD64"
  9.  AppDataPath = objShell.ExpandEnvironmentStrings("%APPDATA%" )
  10.  MsgBox "64 Bits"
  11. Case Else
  12.  AppDataPath = objShell.ExpandEnvironmentStrings("%USERPROFILE%" )
  13. End Select
  15. MsgBox AppDataPath
  18. If Nom_User = "conf-install" Then
  20. ElseIf Nom_User = "administrateur" Then
  22. Else
  23. objShell.run "cmd.exe /c echo test >" & AppDataPath & "\Inventaire-Logiciels.txt",0,true
  24. End If


Message édité par Eysinem le 20-12-2013 à 11:57:41
Reply

Marsh Posté le 13-12-2013 à 18:00:02   

Reply

Sujets relatifs:

Leave a Replay

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