1er script

Signaler
Messages postés
22
Date d'inscription
jeudi 5 juillet 2007
Statut
Membre
Dernière intervention
10 août 2012
-
Messages postés
22
Date d'inscription
jeudi 5 juillet 2007
Statut
Membre
Dernière intervention
10 août 2012
-
Bonjour,
je cherche à ecrire un petit script pour apprendre et je suis bloqué à un en endroit.
voici le script:
option explicit
On Error Resume Next
dim objShell
dim regActiveComputerName, regComputerName, regHosname
dim ActiveComputerName, ComputerName, Hostname

regActiveComputerName = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control" & _
    "ComputerName\ActiveComputerName\ComputerName"
regComputerName = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control" & _
    "ComputerName\ComputerName"
regHosname = _
    "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\hostname"

Set obShell = CreateObject("WScript.shell")
ActiveComputerName = objshell.RegRead(regActiveComputerName)
Hostname = objshell.RegRead(reghostname)
ComputerName = objshell.regread(regComputerName)

Wscript.Echo ActiveComputerName & " est le nom actif de l'ordinateur "
Wscript.Echo ComputerName & " est le nom de l'ordinateur"
Wscript.Echo hostname & " est le nom d'hote"

ce script est celui utiliser dans le bouquin autoformation au script 1iere partie, j'arrive à comprendre mais si j'enleve "on error resume next" il me fait une erreur a la ligne Set objShell ......en me disant que la variable objShell n'est pas definie et si je laisse on error resume next il  me sort juste ce que je lui donne en information de  sortie, enfin il me donne pas ce qu'il devrait aller chercher dans le registre.
dans le bouquin il  declare objShell mais il ne lui donne pas de valeur puisque set est cencé  attribué une refence à un objet enfin le faite que je ne comprenne pas encore tres bien c'ette ligne expliqu deeja qu'il y est une erreur.
Pouvez-vous m'aidé à comprendre, svp.

kipetro debutant.

4 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
80
Salut
Si c'est du VBScript, pourquoi poster ta question en .NET ? (catégorie modifiée)

Parce que tu as dimensionné objShell
et que tu utilises obShell = Erreur de syntaxe

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
22
Date d'inscription
jeudi 5 juillet 2007
Statut
Membre
Dernière intervention
10 août 2012

c'est bon c'étais sa, merci.
j'aurais dù mieux regarder.

kipetro debutant.
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Bonjour à tous,

Ah ces variables !

Dim wshShell
Dim strComputer

Set wshShell = Wscript.CreateObject ("Wscript.Shell")
strComputer = wshShell.ExpandEnvironmentStrings ("%COMPUTERNAME%")

Dim regHostName, strHostName
regHostName = _
    "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\hostname"
strHostName = wshShell.RegRead(regHostName)

Dim regActiveComputerName, strActiveComputerName
regActiveComputerName = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control" & _
     "ComputerName\ActiveComputerName\ComputerName"
strActiveComputerName = wshShell.RegRead(regActiveComputerName)

Dim regComputerName, strComputerName
regComputerName = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control" & _
     "ComputerName\ComputerName\ComputerName"
strComputerName = wshShell.RegRead(regComputerName)

Dim wshNetWork, strNetComputer, strNetUserName
Set wshNetWork = CreateObject("WScript.NetWork")
strNetComputer = wshNetWork.ComputerName
strNetUserName = wshNetWork.UserName

MsgBox "strComputer" &vbTab&vbTab& strComputer &vbCr&_
       "regHostName" &vbTab&vbTab& strHostName &vbCr&_
       "regActiveComputerName" &vbTab& strActiveComputerName &vbCr&_
       "regComputerName" &vbTab&vbTab& strComputerName &vbCr&_
       "strNetComputerName" &vbTab& strNetComputer &vbCr&_
       "strNetUserName" &vbTab&vbTab& strNetUserName
      

Set wshShell = Nothing
Set wshNetWork = Nothing

jean-marc
Messages postés
22
Date d'inscription
jeudi 5 juillet 2007
Statut
Membre
Dernière intervention
10 août 2012

merci, c'est simpa ce que tu a fais, je vais essayer de le relire ce soir pour mieux comprendre comment tu as fais.
kipetro debutant.mais pas pour longtemps