'*** v10.3 *** www.dieseyer.de ***************************** 

'  

' Datei:  remotesysrootshare.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 RemoteSysRootShare( "PC1" )  

 

Wscript.Quit  

 

 

'*** v10.3 *** www.dieseyer.de ***************************** 

Function RemoteSysRootShare( PCName ) 

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

' Erweiterte "Function RemoteSystemDrive( PCName )"" 

 

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

  Dim WinDir 

  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 : RemoteSysRootShare = "Fehler: \..\c$: " & Tst : Exit Function 

 

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

  For Each objOperatingSystem in colOperatingSystems 

	WinDir = objOperatingSystem.WindowsDirectory 

  Next 

  Set colOperatingSystems = nothing 

  Set objWMIService = nothing 

 

  WinDir = Replace( WinDir, ":", "") 

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

  Tst = Left( WinDir, 1 ) 

  RemoteSysRootShare = "\\" & PCName & "\" & Left( WinDir, 1 ) & "$" & Mid( WinDir, 2 ) 

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

 

  If fso.FolderExists( RemoteSysRootShare ) Then  

	RemoteSysRootShare = "Erreichbar: " & RemoteSysRootShare  

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

	Exit Function 

  End If 

 

  RemoteSysRootShare = "Fehler - Nicht erreichbar: " & RemoteSysRootShare 

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

 

End Function ' RemoteSysRootShare( PCName )