Anlage des Repos

archive/ThinClient/ThinClient_Installationsskript_XP.vbs

@@ -0,0 +1,22 @@
+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