Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VBS Login Script verweigert seinen Dienst

Mitglied: kidjo

kidjo (Level 1) - Jetzt verbinden

13.04.2006, aktualisiert 14.04.2006, 3879 Aufrufe, 1 Kommentar

Hallo!

Ich habe dieses Script sozusagen geerbt und eigentlich immer nur Probleme damit. Laufwerke werden gar nicht verbunden und Drucker nur wenn die Sterne richtig stehen.
Da ich ein VB Neuling bin kann ich das Script zwar entziffern, aber für Fehlersuche reicht mein Wissen leider noch nicht.
Daher meine Bitte an euch, könnt Ihr mal drüber schauen und mir eventuell weiterhelfen?

Ich habe das Script um ca. 40 Drucker reduziert, damit das lesen einfacher fällt!

___________________________________________________________________________________________________________


Initialize

GetUserName

on error resume next

wscript.echo "Hallo " & loginUser

'Hier könnten allgemeine Laufwerks und Druckerverbindungen stehen....




'Nächste Funktion liest die Gruppen aus
sucheGruppen

' Globale Variablen
Dim WSHNetwork
Dim loginUser

' Funktionen
Sub Gruppen(aktuelleGruppe)

Select Case aktuelleGruppe

Case "LAUFWERKE_CNC"
wscript.echo "Laufwerk CNC wird verbunden"
MapDrive "N:","\\teamfile\cnc"

Case "LAUFWERKE_FINANZEN"
wscript.echo "Laufwerke BMD und Soft2000 werden verbunden"
MapDrive "R:","\\teamstore\bmd"
MapDrive "S:","\\teamfile\Fibu"

Case "LAUFWERKE_HPO"
wscript.echo "Laufwerke HPO und Schelling werden verbunden"
MapDrive "I:","\\teamfile\hpo"
MapDrive "J:","\\teamfile\schlling"

Case "LAUFWERK_P2"
wscript.echo "Laufwerk P2 wird verbunden"
MapDrive "Q:","\\teamvm02\P2"

Case "Laufwerk_QUI_Teilnehmer"
wscript.echo "Laufwerk QUI Teilnehmer wird verbunden"
MapDrive "Z:","\\teamfile\QUI_Schulung"

Case "Laufwerk_Adpontes"
wscript.echo "Laufwerk Adpontes wird verbunden"
MapDrive "P:","\\teamwsv01\p2-adpontes"

Case "DRUCKER_Anmeldung"
wscript.echo "Anmeldung Drucker werden verbunden"
WSHNetwork.AddWindowsPrinterConnection "\\teamstore\Linz_Anmeldung_HPLJ1200"

Case "DRUCKER_BRAUNAU"
wscript.echo "Braunau Drucker werden verbunden"
WSHNetwork.AddWindowsPrinterConnection "\\Teamstore\Braunau_Sekretariat_HPLJ1100"
WSHNetwork.AddWindowsPrinterConnection "\\Teamstore\Braunau_StandortLtg_HPDJ1125C"
WSHNetwork.AddWindowsPrinterConnection "\\Teamstore\Braunau_AV_HPLJ1100"

End Select

End sub


Sub sucheGruppen()
On Error Resume Next
adsPath = "WinNT://TEAM-WORK/" & loginUser
Set objSAM = GetObject("WinNT:")
Set objUser = objSAM.OpenDSObject(adsPath,"","", ADS_READONLY_SERVER)
For Each Prop In objUser.groups
call Gruppen(ucase(Prop.Name))
Next
End Sub

Sub MapDrive(strDrive,strShare)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Netzlaufwerk verbinden, schon bestehende Verbindung überschreiben
On Error Resume Next
WSHNetwork.MapNetworkDrive strDrive, strShare
If Err.Number Then
''''wscript.echo Err.Description
WSHNetwork.RemoveNetworkDrive strDrive
WSHNetwork.MapNetworkDrive strDrive, strShare
End If
End Sub

Sub GetUserName ()
loginUser = ""
While loginUser = ""
loginUser = WSHNetwork.UserName
Wend
End Sub

Sub Initialize ()
Set WSHNetwork = WScript.CreateObject("WScript.Network")
End Sub

___________________________________________________________________________________________________________

Vielen Dank für eure Mühe schon mal vorab!

Liebe Grüsse
Kidjo
Mitglied: Biber
14.04.2006 um 19:46 Uhr
Moin, Kidjo,
mach Dir mal keine Sorgen, dass Du VB-Neuling bist - wer immer dieses Skript geschrieben hat, ist auch nicht weiter *gg

Der Bug ist relativ banal (passiert ja auch nicht viel trotz dieses aufgeblähten Codes).

Der Schnipsel startet
..
Initialize....GetUser...
sucheGruppen ---> Ruft "call Gruppen(ucase(Prop.Name))" <----------------

...das heißt, die Subroutine "Gruppen()" bekommt als Parameter ("EINE GRUPPE ABER IMMER IN GROSS *LACH*")

Und wenn Du dann in diese *lach* CASE-Konstrukte reinschaust, mit was da "GROSSE GRUPPE" verglichen wird... siehst Du es?
01.
.. 
02.
Select Case "LAUFWERK_ADPONTES" 
03.
... 
04.
 CASE "Laufwerk_Adpontes"        
...tja ...dieser Vergleich wird sehr selten funktioneren.

Also, wenn Du dieses bisheriges Skriptlett möglichst wenig anfassen/anpassen willst, dann schreibe in der Sub Gruppen() alle Strings nach dem CASE "IN GROSSBUCHSTABEN"

Gruß Biber
Bitte warten ..
Ähnliche Inhalte
Windows Server

Login Script verzögert ausführen

Frage von Intruder0001Windows Server6 Kommentare

Hallo gibt es die Möglichkeit das login Script verzögert nach der Anmeldung ca. 10-20sek auszuführen ?? Gerade bei schnellen ...

Windows Server

Pdf per login script

gelöst Frage von ToggleWindows Server4 Kommentare

Hallo zusammen, ich habe hier intern eine Fragestellung bekommen. Wir haben hier im 3 Stunden-Takt Personen, die sich an ...

Exchange Server

BES verweigert Dienst nach Exchange-Update

Frage von manuel1985Exchange Server1 Kommentar

Hi, wir haben bei einem Kunden vor ca. 1,5 Wochen auf dem Mailserver SP3 für Exchange 2010 installiert. Danach ...

VB for Applications

VBS Script kann Prgramm nicht starten

gelöst Frage von C.BoernerVB for Applications15 Kommentare

Hallo ihr Admins, Ich habe folgendes Scenarios ein Programm läuft im Hintergrund (Drivve-Image) das übergibt Werte an ein VBS ...

Neue Wissensbeiträge
Multimedia & Zubehör
AVM Fritz USB WLAN Sticks schneller einschalten
Tipp von NetzwerkDude vor 17 StundenMultimedia & Zubehör

Die AVM Fritz WLAN Sticks haben in der Firmware 2 Modis: Einmal als Massenspeicher und einmal als WLAN Netzwerkkarte ...

Windows Server

Windows Server Backup schlögt Fehl -Lösung 2008-2016

Tipp von BiGnoob vor 19 StundenWindows Server

Hi zusammen , ich möchte gerne einen Lösungstipp abgeben für folgenden fehler: lösung ist folgende:

Humor (lol)
Telekom vs. O2 - 3:2
Erfahrungsbericht von the-buccaneer vor 1 TagHumor (lol)3 Kommentare

Unglaublich aber wahr: Nachdem mein privater Anschluss am 19.04.18 auf VOIP und VDSL umgestellt wurde, hatte ich seitdem 1,5 ...

Batch & Shell

Windows 10 Heimnetzgruppe abgeschaft. Ein Script für einfache Netzwerk - Freigabe im Heimnetzwerk

Anleitung von treehe vor 1 TagBatch & Shell3 Kommentare

Anleitung für eine einfache Netzwerkfreigabe unter Windows 10 Wie weiter hab mal ein kleines CMD - Script gebastelt. Womit ...

Heiß diskutierte Inhalte
Netzwerke
IP-Adresse am zweiten Domänencontroller fest vergeben - Server verschwunden
gelöst Frage von DanielG1974Netzwerke27 Kommentare

Ich hab ein Problem, was ich bisher noch nicht erlebt habe Ich habe erfolgreich einen zweiten Server mit ActiveDirectory ...

Windows Tools
Virtueller Drucker gesucht (Schnittstelle: USB oder Seriell)
Frage von chrisButterflyWindows Tools19 Kommentare

Hi, ich suche einen virtuellen Drucker, den ich über eine USB oder serieller Schnittstelle ansprechen kann. Dieser Drucker soll ...

Firewall
Sophos SG 125 nicht mehr erreichbar
Frage von GwaihirFirewall15 Kommentare

Hallo zusammen, ausgerechnet über die Feiertage stimmt etwas mit meiner Firmen-Firewall nicht. Es ist eine Sophos SG 125 und ...

Windows Server
Windows Server 2012 - Update - Beim Booten bleibt der Server beim Windows Zeichen stehen
Frage von KeilbachWindows Server15 Kommentare

Hallo Zusammen, ich grüße euch, mein Name ist Michele. Ich bin hier ganz Neu - da ich einfach nicht ...