Page 1 sur 1
[..] Recherche Nom d'ordinateur
Posté : ven. 30 janv. 2009 10:44
par sergiosg
Bonjour,
Je cherche une commande qui peut récupérer le nom de l'ordinateur pour le renseigner sur la commande si dessous au niveau du domaine :XXXX devans indiquer le nom d'ordinateur
Code : Tout sélectionner
NoTrayIcon
#RequireAdmin
Global $sUserName = "administrator"
Global $sPassword = "qsdmpoiuy"
Global $sDomaine = "XXXX"
If not IsAdmin() Then
RunAs($sUserName, $sDomaine, $sPassword, 0, @ScriptFullPath, @ScriptDir)
EndIf
;Run(@comspec&' /c regedit /s ./reg.reg')
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\CheckPoint\SecuRemote\5.0\OM")
Re: [..] Recherche Nom d'ordinateur
Posté : ven. 30 janv. 2009 12:20
par ani
http://www.autoitscript.fr/autoit3/docs/macros.htm =
@ComputerName
Merci de bien vouloi lire les régles du forum, et de poster dans la bonne catégorie (une demande ne se fait pas dans Présentation) merci =
http://www.autoitscript.fr/forum/viewto ... f=35&t=595
Re: [..] Recherche Nom d'ordinateur
Posté : ven. 30 janv. 2009 15:08
par Alain54210
Bonjour,
On peut récupérer le nom de l'hôte à travers la commande ipconfig
exemple de code
► Afficher le texte
Code : Tout sélectionner
#include <Constants.au3>
$foo = Run(@ComSpec & " /c ipconfig.exe /all ","",@SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
;
; C:\Documents and Settings\Administrateur>ipconfig /all
;
; Configuration IP de Windows
;
; Nom de l'hôte . . . . . . . . . . : xxxxxxxxx
; . . . . . .
;
$nomHote=""
While 1
$line = StdoutRead($foo)
If @error Then ExitLoop
$motclefNomHote="Nom de l'hôte . . . . . . . . . . : "
if StringLen($line)>0 Then
for $i=1 to StringLen($line) - StringLen($motclefNomHote)
if StringMid($line,$i,StringLen($motclefNomHote))=$motclefNomHote then
$i=$i+StringLen($motclefNomHote) ;mot clef trouvé
$j=$i+1 ; on recherche Chr(13) apres le mot clef
While StringMid($line,$j,1)<>Chr(13)
$j=$j+1
WEnd
$lenomhote=$j-$i
$nomHote=StringUpper(StringMid($line,$i,$lenomhote))
ExitLoop
EndIf
Next
EndIf
Wend
MsgBox(0,"",$nomHote)
Re: [..] Recherche Nom d'ordinateur
Posté : lun. 02 févr. 2009 10:30
par sergiosg
Bonjour,
Merci pour le code il récupére bien le nom de l'ordinateur mais pouvez-vous SVP m'indiquer le code complet pour récupérer ce non d'ordinateur de maniére à le renseignier automatiquement dans le code d''origine.
Merci d'avance
SERGIOSG
Re: [..] Recherche Nom d'ordinateur
Posté : lun. 02 févr. 2009 16:06
par Yogui
Code : Tout sélectionner
NoTrayIcon
#RequireAdmin
Global $sUserName = "administrator"
Global $sPassword = "qsdmpoiuy"
Global $sDomaine = @ComputerName
If not IsAdmin() Then
RunAs($sUserName, $sDomaine, $sPassword, 0, @ScriptFullPath, @ScriptDir)
EndIf
;Run(@comspec&' /c regedit /s ./reg.reg')
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\CheckPoint\SecuRemote\5.0\OM")
comme ça ?