General Motors > Informatique
Le coin des barbus, Questions, réponses et blabla
SaVio:
voila j'ai de la place pour installer BF4 :o
merguez a roulettes:
:D
merguez a roulettes:
au programme pour demain, 75 imprimantes à scripter pour installation auto :o
150 si j'ai le courage de faire la version winxp en plus de win7 [:agug]
Rajesh Koothrappali:
--- Citation de: Seb corgan le 04/12/13 17:43 ---Ca commence pas a faire un peu beaucoup pour une table MySQL ? :D
--- Fin de citation ---
Probablement oui mais bon c'est pas mon problème :D Et ils doivent splitter des bases car ils ont foutu tout un tas de bordel dedans
MickeyNox:
--- Citation de: merguez a roulettes le 04/12/13 20:38 ---au programme pour demain, 75 imprimantes à scripter pour installation auto :o
150 si j'ai le courage de faire la version winxp en plus de win7 [:agug]
--- Fin de citation ---
' Verification de la version Windows
Set objShellExec = objShell.Exec("%comspec% /c ver")
Set oStdOutputText = objShellExec.StdOut
Do While Not oStdOutputText.AtEndOfStream
sText = oStdOutputText.ReadLine
If InStr(sText, "Windows 2000") 0 Then ' Cas Windows 2000
ParamSnap = ""
End If
If InStr(sText, "Microsoft Windows [Version") 0 Then ' Cas Windows XP
ParamSnap = "
End If
Loop
Seb corgan:
--- Citation de: MickeyNox le 05/12/13 13:05 ---
' Verification de la version Windows
Set objShellExec = objShell.Exec("%comspec% /c ver")
Set oStdOutputText = objShellExec.StdOut
Do While Not oStdOutputText.AtEndOfStream
sText = oStdOutputText.ReadLine
If InStr(sText, "Windows 2000") 0 Then ' Cas Windows 2000
ParamSnap = ""
End If
If InStr(sText, "Microsoft Windows [Version") 0 Then ' Cas Windows XP
ParamSnap = "
End If
Loop
--- Fin de citation ---
ou plus simple :
--- Code: ---ver
--- Fin du code ---
:D
Navigation
[#] Page suivante
[*] Page précédente
Utiliser la version classique