- #1
J
jerec
Guest
Hi, ich fummle seit 2 Tagen an einem VB Anmeldescript
Mit meinem begrenzten Wissen stosse ich zur Zeit auf ein Problem.
Hoffe ihr könnt mir da weiterhelfen.
In einer Firma sind die Computernamen den Abteilungen zugeordnet (zB VERKAUF-01, VERKAUF-02) ect
Anhand der Abteilungen bekommen die User Laufwerke zugewiesen.
Also habe ich mit einer IF Abfrage gearbeitet.
Da aber immer wieder neue Rechner eingebunden werden will ich das Script nicht ewig nachpflegen.
Ich könnte eine If else esleif schreiben mit 100 PC Bezeichnungen um für die nächsten 10 Jahre
vorzubeugen =) Aber das geht bestimmt auch anders. Jetzt meine Frage..
Wie kann ich das am besten bewerkstelligen das das Script die Nummern automatisch erweitert ?
Bibt es Platzhalter in VBScript ?
( if computername (VERKAUF-**) then ) ???
Bis jetzt sieht das so aus:
Dim net
Set net = CreateObject(WScript.Network)
Set WshNetwork = WScript.CreateObject(WScript.Network)
If WshNetwork.ComputerName = (VERKAUF-00004) Then
net.MapNetworkDrive D: usw usw
Bin für jede Hilfe dankbar..
MFG
cojahn
Mit meinem begrenzten Wissen stosse ich zur Zeit auf ein Problem.
Hoffe ihr könnt mir da weiterhelfen.
In einer Firma sind die Computernamen den Abteilungen zugeordnet (zB VERKAUF-01, VERKAUF-02) ect
Anhand der Abteilungen bekommen die User Laufwerke zugewiesen.
Also habe ich mit einer IF Abfrage gearbeitet.
Da aber immer wieder neue Rechner eingebunden werden will ich das Script nicht ewig nachpflegen.
Ich könnte eine If else esleif schreiben mit 100 PC Bezeichnungen um für die nächsten 10 Jahre
vorzubeugen =) Aber das geht bestimmt auch anders. Jetzt meine Frage..
Wie kann ich das am besten bewerkstelligen das das Script die Nummern automatisch erweitert ?
Bibt es Platzhalter in VBScript ?
( if computername (VERKAUF-**) then ) ???
Bis jetzt sieht das so aus:
Dim net
Set net = CreateObject(WScript.Network)
Set WshNetwork = WScript.CreateObject(WScript.Network)
If WshNetwork.ComputerName = (VERKAUF-00004) Then
net.MapNetworkDrive D: usw usw
Bin für jede Hilfe dankbar..
MFG
cojahn