Mit VBS Laufwerk automatisch bei Systemstart verbinden

On Error Resume Next

PfadStr = inputbox("Bitte geben Sie den Namen von der Freigabe ein",,"Public")  

set Winsock1=WScript.CreateObject("MSWinsock.Winsock", "WS_")   
Wscript.Echo "Eigene IP ist:" &  Winsock1.localip  

dim Zaehler
Zaehler = 0
AdrTemp = ""  
EigeneIP = Winsock1.localip

for i = 1 to len(winsock1.localip)
	a = mid(winsock1.localip,i,1)
	AdrTemp = AdrTemp & a
	if a = "." then   
		select Case Zaehler
		case 0
			'Wscript.Echo Zaehler  
			St1 = AdrTemp
			AdrTemp = ""  
			Zaehler = Zaehler + 1
		case  1
			'Wscript.Echo Zaehler  
			St2 = AdrTemp
			AdrTemp = ""  
			Zaehler = Zaehler + 1
		case  2
			'Wscript.Echo Zaehler  
			St3 = AdrTemp
			AdrTemp = ""  
			Zaehler = Zaehler + 1
		end select
	end if
	
next


Zaehler = 0

strTarget = St1 & St2 & St3 

  
Set objShell = CreateObject("WScript.Shell")  
  
'Do Until InStr(strPingResults, "reply from")   
	for i = 0 to 254 step 1
 	
	Zaehler = i
	AktIP = strTarget & Zaehler


  	Set objExec = objShell.Exec("ping -n 1 -w 1000 " & AktIP)  
   	strPingResults = LCase(objExec.StdOut.ReadAll)
	
	if InStr(strPingResults, "reply from") then  
		Wscript.Echo AktIp & " antwortet."  
	else
		Wscript.Echo AktIp & " antwortet nicht."  
	end if
	

	if InStr(strPingResults, "reply from")   then 	  
		if  eigeneIP = AktIP then
			Wscript.Echo AktIP & " ist eigene IP."  
		else
			set shell = CreateObject("WScript.Shell")  
			shell.run "net use Z: \\" & AktIp & "\" & PfadStr & " Passwort /user:USER /y",0  
			Wscript.Sleep 5000

			Set objFSO = CreateObject("Scripting.FileSystemObject")  
			If objFSO.FolderExists("\\" & AktIp & "\" & PfadStr) Then  
    				Wscript.echo  AktIP & " ist unter Z:\\" & AktIp & "\" & PfadStr & " gemountet."  
				Wscript.Quit
			Else
    				Wscript.Echo AktIP & " gesuchter Netzwerkpfad existiert aber nicht."  
			End If

		end if
	end if

	if Zaehler = 254 then
	 	msgbox "Konnte den Netzwerkpfad nicht finden.Script wird beendet."  
	 	WScript.Quit
	end if
	next
'Loop  


set objshell = nothing
set objExec = nothing
set shell = nothing

@Echo Off
cscript C:\Mount.vbs
pause