[VBS] Bitte Source korrigieren

[metallica]

On Error Resume Next 

'##########################################
strDomain="WinNT://<domäne>/" 
strLocalGroup="Administratoren" 
strUserAdd="<domänengruppe>" 
'##########################################

Set net         = CreateObject("Wscript.Network") 
Set objComputer = strDomain 


strComputer = net.ComputerName 
strAdd=strDomain & strUserAdd 



'On Error Resume Next 
Set objLocalGroup = GetObject("WinNT://" & strComputer & "/" & strLocalGroup) 
objLocalGroup.Add(strAdd)


'Einfach die Variablen strDomain, strLocalGroup und strUserAdd entsprechend anpassen 
'und dann in einer GPO bei Rechner-Start aufrufen. Funktioniert hier einwandfrei

Im Voraus:
ICH KANN KEIN VBS!! HAB DEN SOURCE AUS EINEM ANDEREN FORUM!!

Habe versucht den Code zu kompilieren, einige Fehler....
Vorallem gibts Probeme mit Objekten, beim Computername

Hoffentlich kann sich einer des Sources annehmen!

Vielen DAnk

[Gumball]

Poste ma bitte den kompletten source,und sag was es werden soll

[littletcom]

@Gumball: hast du evtl. morgen bissl Zeit für mich? Ich hab hier ein Tool inkl. Source, welches dich evtl. auch anspricht & mich würde deine Hilfe sehr ansprechen^^

Heut wirds aber bissl knapp!
Merci

[metallica]

Das ist der ganze Source!

Damit wird einen DomänenGruppe zu der lokalen Administratorengruppe hinzugefügt.
Ich glaube sogar, dass das VBS ist, bin mir leider nicht sicher...

[Darkraiser]

jo ich denke wirklich, dass es entweder VBS ist oder sogar .net .... aber bei VB6 fallen mir ein paar sachen auf die so nicht verwendet werden

mfg

[kingweed]

Hm, kenne mich da jetzt auch net so mega aus....aber musst du net und objComputer nicht auch als Variablen deklarieren?

[Lemontree]

Du musst objLocalGroup auch deklarieren. Wenn du das getan hast, wird es funktionieren.