22 lines
567 B
Plaintext
22 lines
567 B
Plaintext
on error resume next
|
|
|
|
IF Wscript.Arguments(0) = "" THEN
|
|
strWorkGroup = "Arbeitsgruppe"
|
|
|
|
ELSE
|
|
|
|
strWorkGroup = Wscript.Arguments(0)
|
|
|
|
END IF
|
|
|
|
Set objNetwork = CreateObject("WScript.Network")
|
|
strComputer = objNetwork.ComputerName
|
|
|
|
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
|
|
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & strComputer & "'")
|
|
|
|
objComputer.JoinDomainOrWorkGroup strWorkgroup, NULL, NULL, NULL, 0
|
|
|
|
'msgbox "Die Arbeitsgruppe mit Namen: "&strWorkGroup&" wurde erfolgreich gesetzt."
|
|
|
|
WScript.Quit |