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