VB Script that creates shortcuts on remote machines

  • Print
Details
Category: VB Scripting
Written by Winfred de Kreij

'
'
'This script creates a drive mapping to C$ of a list of servers, checks if a certain file exists and creates a
'shortcut in the startup menu to that file, then removes the mapping.
'
'
'


Set wshShell = WScript.CreateObject("WScript.Shell")
Set objNetwork = CreateObject("Wscript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")

linkname = "backinfo.lnk"
strFolder = "Q:\Documents and Settings\All Users\Start Menu\Programs\Startup\"
driveletter = "C"
serverlist = "servers.txt"

Set f = fso.openTextFile(serverlist,1)
do while f.atendofstream = false       
    servername1 = f.readline
    call mapdrive(driveletter, servername1)
    If fso.FileExists("c:\localbin\backinfo.exe") Then
        set oShellLink = wshShell.CreateShortcut(strFolder & linkname)
        oShellLink.TargetPath = "c:\localbin\backinfo.exe"
        oShellLink.Save
    Else
        Wscript.Echo servername1 & " has no c:\localbin\backinfo.exe"
End If
    call removedrive()
loop
f.close

sub mapdrive(driveletter, servername1)
    objNetwork.MapNetworkDrive "Q:", "\\" & servername1 & "\" & driveletter & "$"
end sub

sub removedrive()
    objNetwork.RemoveNetworkDrive "Q:"
end sub