[VBS] Vérification Nom pc & OSRésolu

Question

Bonjour,

Je me lance dans les scripts VBS, et il y à quelques subtilités que
je n'ai pas compris, et j'aimerais avoir votre avis sur mon script
(Pourquoi y se lance pas déjà   )

C'est un script d'ouverture de session, il vérifie le nom du Pc, si
il commence par UC, il vérifie son OS, si c'est Xp il lance un exe
situer sur mon serveur.

Les deux conditions sont que le nom du PC commence par UC**** et qu'il soit sous XP.

 
Voilà mon bout de code actuel :  


Set objNet = CreateObject("WScript.Network" )
strCompName = objNet.ComputerName
Next
For Each objItem in colItems
VerBig = Left(objItem.Version,3)
NextIF left(strCompName,2) "UC" AND VerBig "5.1" Then Shell.Run "\serveur\ici\lefichier.exe"
ELSE Wscript.Quit
END IF


Merci

jrivet · Accepted Answer

Salut,
Un peu de couleur avec deux question dedans

    Set objNet = CreateObject("WScript.Network")
   strCompName = objNet.ComputerName
    Next '=> Quest ce qui fait lui? il manquerait pas du code?
    For Each objItem In colItems 'C'est quoi ce colItems il manquerait pas du code?
       VerBig = Left(objItem.Version, 3)
   Next   If Left(strCompName, 2) "UC" And VerBig "5.1" Then
       Shell.Run "\serveur\ici\lefichier.exe"
   Else
       Wscript.Quit
   End If , ----
[../code.aspx?ID=41455 By Renfield]

@+: Ju£i€n
Pensez: Réponse acceptée

cs_Doccc · Answer

Set objNet = CreateObject( "WScript.Network" ) strCompName = objNet.ComputerName Set objWMI = GetObject("winmgmts:\" & strComputer & " oot\cimv2") Set Shell = Wscript.CreateObject("Wscript.Shell") Set colItems = objWMI.ExecQuery("Select * from Win32_OperatingSystem",,48) For Each objItem In colItems VerBig = Left(objItem.Version, 3 ) Next If Left(strCompName, 2) "UC" And VerBig "5.1" Then Shell.Run "\serveur\ici\lefichier.exe" Else Wscript.Quit End If Voilà, je pense que c'est bon là. Merci

cs_Doccc · Answer

Oups j'arrive pas à éditer... Je pense que c'est bon dans le sens où j'ai fait les modifs que tu ma demandé !
Vois tu quelque chose d'autre ?!

Merci

jrivet · Answer

Salut,
Essaie peu être ce code

Set objNet = CreateObject("WScript.Network")
   strCompName = objNet.ComputerName
   Set objWMI = GetObject("winmgmts:\" & strCompName & "oot\cimv2")
   Set Shell = Wscript.CreateObject("Wscript.Shell")
   Set colItems = objWMI.ExecQuery("Select * from Win32_OperatingSystem", , 48)
   For Each objItem In colItems
       VerBig = Left(objItem.Version, 3)
   Next   If Left(strCompName, 2) "UC" And VerBig "5.1" Then
       Shell.Run "\serveur\ici\lefichier.exe"
   Else
       Wscript.Quit
   End If , ----
[../code.aspx?ID=41455 By Renfield]

@+: Ju£i€n
Pensez: Réponse acceptée

cs_Doccc · Answer

Merci beaucoup, réponse rapide, simple & efficace !

jrivet · Answer

Salut,
Y a pas de quoi, content d'avoir pu aidé.

Pour tes futures questions sur VB Script, pense à utiliser la section qui lui est dédiée à savoir: 
Thèmes

 / [forum-VISUAL-BASIC_1.aspx Visual Basic 6] / [theme-LANGAGES-DERIVES_287.aspx Langages dérivés] / [theme-VBSCRIPT_245.aspx VBScript].

D'avance merci.

@+: Ju£i€n
Pensez: Réponse acceptée

[VBS] Vérification Nom pc & OS

6 réponses

Votre réponse

Discussions similaires