VBS Script fürs Autologon

danke Markus, ich bin für jeden Tipp dankbar ;)

Was genau aber meinst du mit VER | ...
ab dem | motzt die CMD, das er dieses zeichen nicht kenn, aber sicher bin ich nicht....

also etwa so????????
/script-------------------
VER | find "XP" > nul
IF %errorlevel% == 0 GOTO XP
then
Set ws = Wscript.CreateObject("Wscript.Shell")
ws.run ("cmd c:\testscript\test1.bat")
WScript.Echo "Test1.bat erfolgreich gestartet"
endif
/script-------------------

hier sagt windows fehler zeile 1 zeichen 5 ... ergo | ;)
weiter kann das script nicht ausgeführt werden. okay.. hab hier auch kein xp ..
was müsste ich denn mit GPP denn anders machen??? Domäne ist da.

sagen wir es mal so, ich bin absolut neu ;)
also sowohl in dem Unternehmen als auch im Scripten. Habe auch fast garkeine Rechte.
Ergo muss ich mich darauf konzentrieren eben die Gruppe des angemeldeten Users irgendwie auswerfen zu lassen, wenn möglich.

Gruß Gabriel

muss ich denn, wenn ich die Datei als BAT ausführe dann irgendwas besonderes beachten? BZW, muss ich die ganze "Tabelle in BAt ausführen, und wie übergebe ich die den Wert dann an die VBS um damit weiter zu arbeiten

In einem vorhandenen Login - Script soll überprüft werden (müsste erst eingebunden werden), ob das OS (also XP) und die Gruppe (xxxx) des angemeldeten Benutzers übereinstimmt. Wenn die bedingung erfüllt, soll ein vbs - Script ausgeführt werden, welches entsprechend des Programmes dann die bat startet.

okay alles anders! Wie ich gerade erfahren habe....
In einem vorhandenen Login - Script soll überprüft werden (müsste erst eingebunden werden), ob das OS (also XP) und die Gruppe (xxxx) des angemeldeten Benutzers.
Wenn das zutrifft dann soll ein schon vorhandene login.bat gestartet werden.

Wenn aber das OS Windows 7 ist dann müssen andere Scripts (3Stück; Programmabhängig) gestartet werden...

okay.. soweit der Plan .. ich habe es auch angesprochen aber es SOLL gescripted werden. Mittlerweile bin ich auch ein Stück weiter.
Aber dennoch habe ich eine Fehlermeldung das 'Next', dann 'End' erwartet wird. Beides gesetzt wird das 'Next' erwartet. Vielleicht kann mir jemand Helfen???

'#######################################################################################
Dim ObjShell
Dim ShellObject
DIM OS
'-----------------------OS - ERmitllung------------------------------
Set ShellObject = WScript.CreateObject("WScript.Shell")
Set ObjShell = WScript.CreateObject("WScript.Shell")
Set os = Wscript.CreateObject("Wscript.Shell")
ObjShell = ShellObject.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\ProductName")
'Wenn Windows XP, dann
if InStr(ObjShell, "XP",1) then
os.run ("c:\scripte\test1")
end if
'Wenn Windows 7, dann
if InStr(ObjShell, "7",1) then
os.run ("cmd c:\scripte\test2")
os.run ("cmd c:\scripte\test3")
os.run ("cmd c:\scripte\test4")
end if
end
'###############################################################################

Zum Ablauf
Es soll überprüft werden in welchen Gruppen der User sich befindet, wenn eine der Gruppen die Gruppe 'xxxxx' ist soll überprüft werden, welches betriebssystem installiert ist und dem entsprechend dann eben die test*.bat ausgeführt werden. Vielleicht nur ein kleiner Fehler aber da ich ziemlich Neu im Scripten bin, kann ich den Fehler nicht extrahieren.

Hoffe das mir irgendwer helfen kann.

Hallo Bastla,

Ja cool, .. danke, konnte es zwar noch nicht ausprobieren, aber das sieht gut aus, muss nur noch die Gruppenabfrage integrieren.
könnte ich hier den Code in eine if abfrage verschachteln, alá:
Dim ObjShell
Dim ShellObject
DIM OS
'--------------------------------
Set objitem = GetObject("LDAP://CN=meinuser,OU=meinou,DC=meindomaene,DC=lo")
Groups = objItem.memberof

If IsArray(Groups) Then
For Each Group In Groups
if InStr(Group,"xxxxx")
Next
'---------------------------------
If InStr(ProductName, "XP") Then
ShellObject.Run ("c:\script\test1.bat")
End If
If InStr(ObjShell, "7") then
ShellObject.Run ("c:\script\test2.bat")
ShellObject.Run ("c:\script\test3.bat")
ShellObject.Run ("c:\script\test4.bat")
End If
'--------------------------------
Else
WScript.Echo "Keine konfiguration notwendig
End If

vielen dank für die Mithilfe ;)

wenn ich nun das in das script eintrage und es versuche laufen zu lassen habe ich einen Kompatibilitätsfehler in Zeile 5 ... hoffe das es der letzte post ist ;)

mh.. okay.. Kompilierungsfehler besteht trotzdem....Zeile 5 Zeichen 48 .. 'then' erwartet.. meint er :D ...für mich ist das then aber deutlich sichtbar ... ;D oder habe ich ein gedankenfehler???

auch mit dem jetzt eingefügten Next habe ich meine Zweifel... aber das endert nichts an dem fehler .....