Const USER_PROFILE = &H28&
Dim objComputer
Dim strServer
Dim strHomeDir
Dim pShell, strIP
Set objComputer = CreateObject("Shell.LocalMachine")
Set WshShell = CreateObject("Wscript.Shell")
strServer = objComputer.MachineName
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(USER_PROFILE)
Set objFolderItem = objFolder.Self
strHomeDir = objFolderItem.Path
if Left(strServer,3) = "TS-" then
WshShell.run "subst b: """ & strHomeDir & """"
Set oWTSCOM = CreateObject("EOLWTSCOM.WTSCOM")
strIP = oWTSCOM.WTSQuerySessionInformation(0, -1, 14)
'strIP = pShell.ExpandEnvironmentStrings("%CLIENTNAME%")
set fs=Wscript.CreateObject("Scripting.FileSystemObject")
set wn=Wscript.CreateObject("Wscript.Network")
if fs.DriveExists("LPT1:") then wn.RemoveNetworkDrive "LPT1:", true, true
wn.MapNetworkDrive "LPT1:", "\\"& strIP &"\EPSON", True
'strNUSE = "net use LPT1: \\" & strIP & "\EPSON"
'WshShell.run "net use LPT1: /delete"
wscript.sleep 1000
'WshShell.run strNUSE
end if
WSCript.Quit |
