On Error Resume Next
'Netlaufwerk verbinden
Set net = CreateObject("WScript.Network")
net.MapNetworkDrive "X:", "\\172.16.0.12\Exchange", false, "bgc\bgcr", "read"

'Desktop Verknüpfung erstellen
Dim FileName
	FileName = "Netzlaufwerk Exchange"
		Set shortcut = CreateObject("WScript.Shell").CreateShortcut(CreateObject("WScript.Shell").SpecialFolders("Desktop") & + "\" + FileName + ".lnk")
			shortcut.Description = "172.16.0.12\Exchange"
			shortcut.TargetPath = "X:\"
			shortcut.Arguments = "/Arguments:Shortcut"
			shortcut.Save