Netzlaufwerk verbinden

SUBMITTED BY: Guest

DATE: July 8, 2013, 8:43 p.m.

FORMAT: Text only

SIZE: 608 Bytes

Raw Download

HITS: 1235

Report
  1. On Error Resume Next
  2. 'Netlaufwerk verbinden
  3. Set net = CreateObject("WScript.Network")
  4. net.MapNetworkDrive "X:", "\\172.16.0.12\Exchange", false, "bgc\bgcr", "read"
  6. 'Desktop Verknüpfung erstellen
  7. Dim FileName
  8. FileName = "Netzlaufwerk Exchange"
  9. Set shortcut = CreateObject("WScript.Shell").CreateShortcut(CreateObject("WScript.Shell").SpecialFolders("Desktop") & + "\" + FileName + ".lnk")
  10. shortcut.Description = "172.16.0.12\Exchange"
  11. shortcut.TargetPath = "X:\"
  12. shortcut.Arguments = "/Arguments:Shortcut"
  13. shortcut.Save
comments powered by Disqus