Hallo,
Ich habe ein vbs Script zum Anlegen von Benutzern und Gruppen.
Das Script funktioniert unter Win2000 professionell einwandfrei, unter Winnt4 Server kommt bein Aufruf des Scripts folgende Fehlermeldung:
Script: E\add_group_kurt.vbs
Zeile: 17
Zeichen: 1
Fehler: Ungültige Syntax
Code: 800401E4
Quelle: (null)
QUELLCODE DES SCRIPTS
' (C) 2000 by Dr. Tobias Weltner
' MSPress: "Scripting für Administratoren"
msg = "Kurzbeschreibung:" & vbCr & "Dieses Skript legt eine neue Benutzergruppe an." & vbCr & vbCr & "Wollen Sie das Skript jetzt ausführen?"
antwort = MsgBox(msg, vbYesNo + vbQuestion)
if antwort = vbNo then
MsgBox "Abbruch", vbExclamation
WScript.Quit
end if
'SYS: Windows Script Host Runtime Library
Set net = CreateObject("WScript.Network")
computer = net.ComputerName
computer = "KURTSERVER"
gruppe = "KuRT"
Set obj = GetObject("Winntsrv://" & computer & ",computer")
Set gruppe = obj.Create("group", gruppe)
gruppe.SetInfo
computer = net.ComputerName
computer = "KURTSERVER"
gruppe = "KuRT_Bank"
Set obj = GetObject("Winntsrv://" & computer & ",computer")
Set gruppe = obj.Create("group", gruppe)
gruppe.SetInfo
computer = net.ComputerName
computer = "KURTSERVER"
gruppe = "KuRT_Verwaltung"
Set obj = GetObject("Winntsrv://" & computer & ",computer")
Set gruppe = obj.Create("group", gruppe)
gruppe.SetInfo
MsgBox "Gruppe wurde angelegt."
Da ich mich mit vbs Scripts noch nicht gut auskenne, hoffe ich das mir hier jemand weiterhelfen kann.
Danke für Eure Hilfe im Vorhinein
Andi