andi: Fehlermeldung bei vbs aufruf unter winnt4.0 server

SELF-Forum

Fehlermeldung bei vbs aufruf unter winnt4.0 server

andi
– Informationen zu den Bewertungsregeln

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

Beitrag melden
–
Informationen zu den Bewertungsregeln

  1. Fehlermeldung bei vbs aufruf unter winnt4.0 server

    Frank
    – Informationen zu den Bewertungsregeln

    computer = net.ComputerName
    computer = "KURTSERVER"
    gruppe = "KuRT"

    Set obj = GetObject("Winntsrv://" & computer & ",computer")

    Hi,

    1. du vergibst zweimal einen Namen für die Variable "computer"
    2. die GetObject-Zeile ist schätzungsweise (nach 17 Zählversuchen) die betroffene Zeile... und diese Zeile sieht in meinen Augen irgendwie komisch aus. vor allem dieses ",computer"

    Sicher das da nicht irgendwie das zweite "computer" als Argument stehen muß, und nicht in "" ??

    die Syntax für getObject ist:

    GetObject([Pfadname] [, Klasse])

    bei dir würde also das zweite Argument (Klasse) fehlen, weil das Komma ja in den "" mit drin steht.

    so würde das besser aussehen
    Set obj = GetObject("Winntsrv://" & computer,"computer")

    HTH, Frank

    Beitrag melden
    –
    Informationen zu den Bewertungsregeln

    1. Fehlermeldung bei vbs aufruf unter winnt4.0 server

      andi
      – Informationen zu den Bewertungsregeln

      Hallo Frank,
      Habe das Script nach Deinem Vorschlag geändert.
      Jetzt kommt folgende Fehlermeldung:

      Script: E\add_group_kurt.vbs
      Zeile: 17
      Zeichen: 1
      Fehler: ActiveX-Komponenten kann kein Objekt erstellen:'GetObject'
      Code: 800A01AD
      Quelle: Laufzeitfehler in Microsoft VB Script

      Beitrag melden
      –
      Informationen zu den Bewertungsregeln

      1. Fehlermeldung bei vbs aufruf unter winnt4.0 server

        Frank
        – Informationen zu den Bewertungsregeln

        Hallo Frank,
        Habe das Script nach Deinem Vorschlag geändert.
        Jetzt kommt folgende Fehlermeldung:

        Script: E\add_group_kurt.vbs
        Zeile: 17
        Zeichen: 1
        Fehler: ActiveX-Komponenten kann kein Objekt erstellen:'GetObject'
        Code: 800A01AD
        Quelle: Laufzeitfehler in Microsoft VB Script

        Hi,

        na, is doch schonmal ein anderer Fehler, also wird die Syntax jetzt stimmen ?!

        Woran das genau liegt, kann ich dir im Moment leider nicht sagen, aber du kannst deine Frage ja mal in einem VB-Forum wie unter

        http://f24.parsimony.net/forum57056/index.htm

        stellen.

        Gruß, Frank

        Beitrag melden
        –
        Informationen zu den Bewertungsregeln