Windows Scripting Host

[Thierry]

Hoi,

Ik ben bezig met login scripts te maken voor in een windows 2000 domein. Alleen heb ik zeg maar de ballen verstand van visual basic, en dus willen ook mijn scripts niet werken. Het gaat met name om het volgende script.

code:

DIM WshShell
set WshShell = createObject("wscript.shell")
Set oExec = WshShell.Exec("cmd.exe /C net time \\inbl-sv-01")

Const LEERLINGEN_GROUP     = "cn=leerlingen"
Const MEDEWERKERS_GROUP    = "cn=medewerkers"
Const DIREKTIE_GROUP       = "cn=direktie"

If InStr(strGroups, LEERLINGEN_GROUP) Then

    wshNetwork.MapNetworkDrive "g:", "\\inbl-sv-01\cdimages"
    wshNetwork.MapNetworkDrive "y:", "\\inbl-sv-01\leerlingen$"
    wshNetwork.AddWindowsPrinterConnection "\\inbl-sv-01\cp660pcl"
    wshNetwork.AddWindowsPrinterConnection "\\inbl-sv-01\cp660ps"
    wshNetWork.SetDefaultPrinter "\\inbl-sv-01\cp660ps"

ElseIf InStr(strGroups, MEDEWERKERS_GROUP) Then

    wshNetwork.MapNetworkDrive "g:", "\\inbl-sv-01\cdimages"
    wshNetwork.MapNetworkDrive "x:", "\\inbl-sv-01\leerlingen$"
    wshNetwork.MapNetworkDrive "y:", "\\inbl-sv-01\medewerkers$"
    wshNetwork.AddWindowsPrinterConnection "\\inbl-sv-01\cp660pcl"
    wshNetwork.AddWindowsPrinterConnection "\\inbl-sv-01\cp660ps"
    wshNetwork.AddWindowsPrinterConnection "\\inbl-admin-ws23\HPLaserJ"
    wshNetWork.SetDefaultPrinter "\\inbl-admin-ws23\HPLaserJ"

ElseIf InStr(strGroups, DIREKTIE_GROUP) Then

    wshNetwork.MapNetworkDrive "g:", "\\FileServer\Human Resources\"
    wshNetwork.AddWindowsPrinterConnection "\\PrintServer\HrLaser"
    wshNetWork.SetDefaultPrinter "\\PrintServer\HrLaser"

End If

Het probleem is dat hij dus niet de mappings etc uitvoert. en ik kan niet uitvogelen waarom.

Kan iemand mij helpen?

[Thierry]

niemand?

[Predator]

A/ Het is niet de bedoeling in PNS dat je zomaar een scriptje neerpost en zegt:
"Het werkt niet, wat is er verkeerd ?"
Dat hoort hier niet.

B/ Je zit hier al lang genoeg om te weten dat je pas je topic mag schoppen na 24h
PNS is een speciaal forum waarbij topics nog minder snel zakken dan normaal en zelfs 24h is al veel te vroeg hier.

en jij schopt na 1u15 mins
Geduld is een mooie deugd