[..] Recherche Nom d'ordinateur

[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")

[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

[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)

[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

[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 ?