Skript wird nicht weiter abgearbeitet!

[Weiss der Geier]

Hey,

iche wiedermal, mein Notebookskript (welcher durch Eure HILFE) super funktioniert, geht scheinbar doch nicht richtig, wenn der Server nicht vorhanden ist. Meine VBS Kenntnisse gehen gegen Null (und das ist schon aufgerundet). Wenn der Server vorhanden ist und auch anpingbar geht es wunderbar. Probleme treten auf, wenn der Server anpingbar ist aber(weil xp drauf läuft keiner angemeldet ist) irgendwie nicht antwortet, da kommt dann Fehler Zeile 75. Heute habe mitbekommen, das wenn der Server nicht erreichbar(weil ich das Board zerschossen habe), zwar das Verzeichnisanlegen klappt, nur die Druckersache nicht weiter abgearbeitet wird. In der Infobox kommt dann nur, das der Wert in der Registry eingetragen wurde, nichts von den Druckern. Das mit den Zeilenumbrüchen habe ich durch Versuche allein hinbekommen. Das mit der Wake - Geschichte natürlich nicht. Wäre Super, wenn sich einer meiner erbarmen könnte!!

Gruß Uwe

[James Blond]

Ich würds ja mit einer batch Datei kombieren, um zu gucken, ob der server anpingbar ist. Und dann mit wscript oder cspript die vbs datei starten

ping 192.168.100.100 && cscript test.vbs

Sicherlich gibt es auch eine VBS Lösung...

[Weiss der Geier]

Keine Ahnung und davon reichlich, habe die Wake Sache extern mit einer Wake.bat gelöst, damit der Server Zeit hat aufzuwachen, weil ich das gefühl habe, das mit der Wartezeit nicht richtig hinhaut. Ist der Server in Standby nutzen komischerweise auch keine 15000 was in dem Notebookeskript (der Server braucht ca. 5 sec zu aufwachen). kommt dann immer die Fehlermeldung bei Zeile 75. klicke ich das Teil manuell an gehts. Also die Wartezeit geht schon es dauert eine Weile bis die MessageBox kommt. Es sollte aber trotzdem auch die Druckergeschichte abgearbeitet werden, vielleicht auch noch eleganter, das wenn ich garkein Drucker online habe eben keiner da steht(ist wenn ich von fremden Notebook das skript starte der Fall, da kommt dann auch immer eine Fehlermeldung).

Gruß Uwe

PS: Das Skript sollte ja eigentlich den Server auch wecken

[Weiss der Geier]

Hallochen,

hier nochmal das Skript, bräuchte bitte Eure Hilfe bei dem Teil:

 'Option Explicit
  
  Dim MyComputer, MyName, MyWorkplace
  Dim WshNetwork, WshShell, strMsg, Company, i, colDrives
  Dim colPrinters, UserName
  Dim FSO, szOrdner, szRegKey, ipadress, obj
  Dim adrprinter_Brot, adrprinter_lpt1
  Dim pingabfrage, Box
  
  'Objekte deklarieren
  Set WshShell = CreateObject("WScript.Shell")
  Set WshNetwork = CreateObject("WScript.Network")
  Set FSO = CreateObject("Scripting.FileSystemObject")
  
  'Arbeitsplatz umbenennen
  MyComputer = WshShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName\ComputerName")
  'MyName = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User Name")
  MyName = WshShell.RegRead("HKEY_CURRENT_USER\Volatile Environment\USERNAME")
  MyWorkplace = MyName + " auf " + MyComputer
  WshShell.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\\"), MyWorkplace
  'WshShell.RegWrite("HKEY_USERS\.DEFAULT\Software\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\\"), MyWorkplace
  
  'Wartezeit für Netzwerkverbindung
  'Wscript.Sleep 1000
  
  'auslesen des am Computer angemeldeten Usernamen + manuelle Vorgabe der "Company"
  UserName = WshNetwork.UserName
  Company = "Weiss der Geier.de"
  
  'Den zu ändernden Registry-Schlüssel benennen
  SzRegKey = "HKEY_CURRENT_USER\Software\HeadLight\GetRight\Config\DefaultDir"
  
  'Netzwerk anpingen
  ipadress = "192.168.0.10"
  Set obj = GetObject("winmgmts:Win32_PingStatus.address='" & ipadress & "'")
   
  'Wartezeit für Netzwerkverbindung
  Wscript.Sleep 8000
  
  If IsNull(obj.StatusCode) Or obj.StatusCode <> 0Then
  'Programmcode wenn Netzwerk nicht erreichbar
  
  'Definition des Ordner: Jahr
  szOrdner = "D:\Downloads\" & Year(Date)
  
  'Wenn szOrdner nicht vorhanden = Ordner anlegen
  If Not (FSO.FolderExists(szOrdner)) Then FSO.CreateFolder(szOrdner)
  
  'Definition des Unterordner: Jahr-Monat
  szOrdner = szOrdner & "\" & Right("00" & Month(Date), 2) & "." & Right("00" & Year(Date), 2)
  
  'Wenn szOrdner nicht vorhanden = Ordner anlegen
  If Not (FSO.FolderExists(szOrdner)) Then FSO.CreateFolder(szOrdner)
  
  'Definition des Unterordner: Tag
  szOrdner = szOrdner & "\" & right("00" & day(date),2)
  
  'Wenn szOrdner nicht vorhanden = Unterordner anlegen
  If Not (FSO.FolderExists(szOrdner)) Then FSO.CreateFolder(szOrdner)
  
  'Eintrag in die Registry
  WshShell.RegWrite szRegKey,szOrdner
  
  'Statusinformation - Netzwerkverfügbarkeit + aktueller Registry-Wert - für Message-Popup-Ausgabe zusammenstellen
  strMsg = strMsg & "Der Server ist unter der IP-Adresse '" & ipadress & "' nicht erreichbar!" & vblf &vbNewLine
  strMsg = strMsg & "In der Registry wurde für Getright folgender Wert eingetragen:" & vblf & vbNewLine & szOrdner
  
  'Datenausgabe über Popup-Messagebox für 10 Sekunden
  WshShell.PopUp strMsg,15," " & Company,64
  
  Else
  'Programmcode wenn Netzwerkverbindung vorhanden ist
  
  'Prüfung ob Netzlaufwerke verbunden sind: Wenn "Nein" = Netzlaufwerke verbinden
  If Not FSO.DriveExists("Z:") Then WshNetwork.MapNetworkDrive "Z:", "\\Server\Dateien"
  If Not FSO.DriveExists("O:") Then WshNetwork.MapNetworkDrive "O:", "\\Server\Downloads"
  If Not FSO.DriveExists("M:") Then WshNetwork.MapNetworkDrive "M:", "\\Server\Musik"
  
  'Definition des Ordner: Jahr
  szOrdner = "O:\" & Year(Date)
  
  'Wenn szOrdner nicht vorhanden = Ordner anlegen
  If Not (FSO.FolderExists(szOrdner)) Then FSO.CreateFolder(szOrdner)
  
  'Definition des Unterordner: Jahr-Monat
  szOrdner = szOrdner & "\" & Right("00" & Month(Date), 2) & "." & Right("00" & Year(Date), 2)
  
  'Wenn szOrdner nicht vorhanden = Ordner anlegen
  If Not (FSO.FolderExists(szOrdner)) Then FSO.CreateFolder(szOrdner)
  
  'Definition des Unterordner: Tag
  szOrdner = szOrdner & "\" & right("00" & day(date),2)
  
  'Wenn szOrdner nicht vorhanden = Unterordner anlegen
  If Not (FSO.FolderExists(szOrdner)) Then FSO.CreateFolder(szOrdner)
  
  'Eintrag in die Registry
  WshShell.RegWrite szRegKey, szOrdner
  
  'Statusinformation - Netzwerkverfügbarkeit + aktueller Registry-Wert - für Message-Popup-Ausgabe zusammenstellen
  strMsg = _
  "Anmelde Ergebnisse" & vblf & vblf & _
  "Benutzername" & Chr(9) & "= " & UserName & vblf & _
  "Computername" & Chr(9) & "= " & _
  WshNetwork.ComputerName & vblf
  
  'Statusinformation über verfügbare Netzwerklaufwerke zusammenstellen
  Set colDrives = wshNetwork.EnumNetworkDrives
  Set colPrinters = wshNetwork.EnumPrinterConnections
  
  If colDrives.Count = 0Then
  strMsg = strMsg & vblf & "Kein Netzlaufwerk ist verbunden." & vblf
  Else
  strMsg = strMsg & vblf & "Verbundene Netzlaufwerk(e):" & vblf
  
  For i = 0To colDrives.Count - 1 Step 2
  strMsg = strMsg & vblf & colDrives(i) & Chr(9) & colDrives(i + 1)
  Next
  End If
  
  'Statusinformation über verfügbare Netzwerkdrucker zusammenstellen
  ' If colPrinters.Count = 0Then
  ' strMsg = strMsg & vblf & vblf & "Kein Netzwerk-Drucker ist verbunden." & vblf
  ' Else
  ' strMsg = strMsg & vblf & vblf & "Verbundene Netzwerk-Drucker:" & vblf & vblf
  
  ' For i = 0To colPrinters.Count - 1 Step 2
  ' strMsg = strMsg & colPrinters(i) & Chr(9) & colPrinters(i + 1) & vblf
  ' Next
  ' End If
  
  'Standard festlegen
  adrprinter_Brot = "Brother DCP-8020"
  adrprinter_lpt1 = "HP LaserJet"
  
  Set obj = GetObject("winmgmts:Win32_PingStatus.address='192.168.0.200'")
  If IsNull(obj.StatusCode) Or obj.StatusCode <> 0Then
      WshNetwork.SetDefaultPrinter adrprinter_lpt1
      strMsg = strMsg & vblf & vblf & "Aktueller Standarddrucker: "  & vblf & vblf & adrprinter_lpt1 & vbNewLine
  Else
     WshNetwork.SetDefaultPrinter adrprinter_Brot
     strMsg = strMsg & vblf & vblf & "Aktueller Standarddrucker: " & vblf & vblf & adrprinter_Brot & vbNewLine
  End If
  
  'Statusinformation über den neu geschriebenen Registryschlüssel
  strMsg = strMsg & vblf & "In der Registry wurde für Getright" & vblf
  strMsg = strMsg & "folgender Wert eingetragen:" & vblf & vbNewLine & szOrdner
  'strMsg = strMsg & "folgender Wert eingetragen:" & vblf & vblf & szOrdner
  
  'Datenausgabe über Popup-Messagebox für 10 Sekunden
  WshShell.PopUp strMsg,15," " & Company,64
  
  End If
  
  Set WshNetwork = Nothing
  Set WshShell = Nothing
  Set FSO = Nothing
  Set colDrives = Nothing
  Set colPrinters = Nothing

bin für jede Hilfe DANKBAR!!

Gruß Uwe