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 |