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, 3883 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 ...

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 ...

Batch & Shell

Hilfe Bei einem vbs Script

gelöst Frage von Hattori-HanzoBatch & Shell19 Kommentare

Hey Leute Könnt ihr mir bitte sagen was daran falsch ist? beschäftige mich erst seit kurzem mit vbs scripts. ...

Neue Wissensbeiträge
Exchange Server
Exchange - Fehler mit 2018-07 Sicherheitsupdate
Tipp von ArnoNymous vor 1 TagExchange Server4 Kommentare

Hallo, es gibt mal wieder Freude mit den MS-Updates. KB4338814 führt dazu, dass der Exchange keine Mails mehr zustellt. ...

Suche Projektpartner

PC Recycling Projekte mit Flüchtlingen und Kids suchen Materialspenden und Mitmacher!

Erfahrungsbericht von NettePCyclePiraten vor 2 TagenSuche Projektpartner7 Kommentare

Hallöchen liebe Kollegen, ich betreue zwei PC-Gruppen im Raum Dortmund: "Ne#e PCycle Pir@ten" & "PCschr@uber Br@mbauer" Wir sind eine ...

iOS
IOS 12.2 beta und OpenVPN iPad und iPhone
Erfahrungsbericht von magicteddy vor 2 TageniOS

Moin, kleiner Hinweis an die experimentierfreudigen unter Euch: Bei der aktuellen beta gibt es ein Problem im Zusammenspiel zwischen ...

Vmware
VMware Tools 10.3 verfügbar
Information von sabines vor 2 TagenVmware

Eine Sicherheitslücke wird mit den Tools der Version 10.3 geschlossen, die Tools müssen auf jeder VM aktualisiert werden. Näheres ...

Heiß diskutierte Inhalte
Windows Netzwerk
Netzwerk einrichten - wie mache ich es richtig?
Frage von gintonikWindows Netzwerk23 Kommentare

Hallo, ich bin neu hier und erhoffe mir hier ein paar Antworten für meine Umsetzung zu erhalten. Kurz zu ...

CPU, RAM, Mainboards
4x 2 GB DDR2 1066 gesucht
gelöst Frage von Windows10GegnerCPU, RAM, Mainboards17 Kommentare

Hallo, ich plane den RAM meines Rechners aufzurüsten. Motherboard: Gigabyte X48 DS5 Der FSB steht bei 259, daher soll ...

Microsoft Office
Druckdatum nur auf ausgedrucktem Dokument anzeigen
gelöst Frage von eichi18Microsoft Office16 Kommentare

Hallo zusammen Ich versuche in einem Word Dokument das Druckdatum nur auf dem eigentlichen Ausdruck auszugeben und am Bildschirm ...

Samba
Samba-NAS Zugriff verweigert
gelöst Frage von VernoxVernaxSamba15 Kommentare

hallo ich schaffe es einfach nicht meinem User Rechte zum schreiben zu geben. Ich habe dies alles auf nem ...