Script um festzustellen ob bei Anmeldung mit Windows-Domäne verbunden
Hallo,
wie kann ich per Script feststellen, ob bei der Anmeldung der User mit der Domän verbunden ist oder sich der Rechner nicht im Firemennetzwerk befindet? (Win7 prof/Win XP prof)
Danke!
speedy-admyn
wie kann ich per Script feststellen, ob bei der Anmeldung der User mit der Domän verbunden ist oder sich der Rechner nicht im Firemennetzwerk befindet? (Win7 prof/Win XP prof)
Danke!
speedy-admyn
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 204132
Url: https://administrator.de/forum/script-um-festzustellen-ob-bei-anmeldung-mit-windows-domaene-verbunden-204132.html
Ausgedruckt am: 02.04.2025 um 06:04 Uhr
7 Kommentare
Neuester Kommentar
Auf die schnelle fällt mir das hier ein:
Frohe Ostern Uwe
'Create command line to ping and save results to a temp file
sCommand = "cmd /c ping.exe -n 3 -w 1000 " & strName & " > C:\temp.txt"
'Execute the command
objShell.run sCommand, 0, true
'Get the temp file
set objTempFile = objFSO.GetFile("C:\temp.txt")
set objTS = objTempFile.OpenAsTextStream(1)
'Loop through the temp file to see if "reply from" is found,
'if it is then the ping was successful
do while objTs.AtEndOfStream <> true
sReadLine = objTs.ReadLine
if instr(lcase(sReadLine), "Antwort von") > 0 then
bReturn = true
exit do
end if
loop
objTS.close
objTempFile.delete
if bReturn = True then
'Verbunden
else
'Nicht verbunden
end if
Frohe Ostern Uwe
$$$$$$
$$ $$$$$$
$$ $$ $
$ $$ $$
$ $$ $$ $$$$$$
$$ $$ $$$ $$
$$$ $ $$ $$
$$ $ $$
$ $$ $$
$$ $$ $$
$ $ $$$ $
$ $$$$ $$ $$$$$$ $
$ $ $$$ $$ $$
$$ $$$$ $ $$
$$$$$$$$$$$ $ $$
$$ $$ $$ $$
$$ $$$$ $$ $ $ $$
$ $$$$ $ $$ $$
$$$$$$$ $$$$$
$$$$$$$$$$$$$$$$$$$$$$$$$

Hallo Uwe!
Ein schöner Hase
Lässt sich (auf die schnelle) etwas abkürzen:
Wünsche auch schöne Ostern!
Gruß Dieter
Ein schöner Hase
Lässt sich (auf die schnelle) etwas abkürzen:
sCommand = "cmd /c ping.exe -n 3 -w 1000 " & "Name"
If CreateObject("WScript.Shell").Run(sCommand, 0, True) = 0 Then
MsgBox "Verbunden!"
Else
MsgBox "Nicht verbunden!"
End If
Wünsche auch schöne Ostern!
Gruß Dieter