'*** v9.3 *** www.dieseyer.de ******************************  

'  

' Datei:  remotesysdriveshare.vbs  

' Autor:  dieseyer@gmx.de 

' Auf:    www.dieseyer.de  

' 

' Die Prozedur ist Bestandteil von WinTuC_vbs.vbs (WinTuC.de) 

' 

'***********************************************************  

   

  Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

 

  MsgBox RemoteSysDriveShare( "PC02" )  

 

Wscript.Quit  

 

 

'*** v9.3 *** www.dieseyer.de ****************************** 

Function RemoteSysDriveShare( PCName ) 

'*********************************************************** 

' Erweiterte "Function RemoteSystemDrive( PCName )"" 

 

  Dim fso         	: Set fso       	= WScript.CreateObject("Scripting.FileSystemObject") 

  Dim Lw 

  Dim objWMIService, colOperatingSystems, objOperatingSystem, Tst 

  On Error Resume Next 

  err.Clear 

  Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & PCName & "\root\cimv2") 

  Tst = err.Number & " - " & err.Description 

  On Error Goto 0 

  If Len( Tst ) > 4 Then : RemoteSysDriveShare = "Fehler: \..\c$: " & Tst : Exit Function 

 

  Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") 

  For Each objOperatingSystem in colOperatingSystems 

	Lw = objOperatingSystem.SystemDrive 

  Next 

  Set colOperatingSystems = nothing 

  Set objWMIService = nothing 

 

  Lw = Replace( Lw, ":", "") 

' MsgBox "Lw: " & Lw, , "41 :: " & PCName & " " & WScript.ScriptName 

 

  RemoteSysDriveShare = "\\" & PCName & "\" & Lw & "$" 

' MsgBox "RemoteSysDriveShare: " & RemoteSysDriveShare, , "44 :: " & PCName & " " & WScript.ScriptName 

 

  If fso.FolderExists( RemoteSysDriveShare ) Then  

	RemoteSysDriveShare = "Erreichbar: " & RemoteSysDriveShare  

	' MsgBox "RemoteSysDriveShare: " & RemoteSysDriveShare, , "48 :: " & PCName & " " & WScript.ScriptName 

	Exit Function 

  End If 

 

  RemoteSysDriveShare = "Fehler - Nicht erreichbar: " & RemoteSysDriveShare 

' MsgBox "RemoteSysDriveShare: " & RemoteSysDriveShare, , "53 :: " & PCName & " " & WScript.ScriptName 

 

End Function ' RemoteSysDriveShare( PCName )