403Webshell
Server IP : 127.0.0.1  /  Your IP : 216.73.216.109
Web Server : Apache/2.4.54 (Win64) OpenSSL/1.1.1q PHP/8.1.10
System : Windows NT DESKTOP-E5T4RUN 10.0 build 19045 (Windows 10) AMD64
User : SERVERWEB ( 0)
PHP Version : 8.1.10
Disable Function : NONE
MySQL : OFF |  cURL : ON |  WGET : OFF |  Perl : OFF |  Python : OFF |  Sudo : OFF |  Pkexec : OFF
Directory :  C:/Windows/System32/Printing_Admin_Scripts/es-ES/

Upload File :
current_dir [ Writeable] document_root [ Writeable]

 

Command :

[ Back ]     

Current File : C:/Windows/System32/Printing_Admin_Scripts/es-ES/prndrvr.vbs
��'----------------------------------------------------------------------

'

' Copyright (c) Microsoft Corporation. All rights reserved.

'

' Abstract:

' prndrvr.vbs - driver script for WMI on Windows 

'     used to add, delete, and list drivers.

'

' Usage:

' prndrvr [-adlx?] [-m model][-v version][-e environment][-s server]

'         [-u user name][-w password][-h file path][-i inf file]

'

' Example:

' prndrvr -a -m "driver" -v 3 -e "Windows NT x86"

' prndrvr -d -m "driver" -v 3 -e "Windows x64"

' prndrvr -d -m "driver" -v 3 -e "Windows IA64"

' prndrvr -x -s server

' prndrvr -l -s server

'

'----------------------------------------------------------------------



option explicit



'

' Debugging trace flags, to enable debug output trace message

' change gDebugFlag to true.

'

const kDebugTrace = 1

const kDebugError = 2

dim gDebugFlag



gDebugFlag = false



'

' Operation action values.

'

const kActionUnknown    = 0

const kActionAdd        = 1

const kActionDel        = 2

const kActionDelAll     = 3

const kActionList       = 4



const kErrorSuccess     = 0

const kErrorFailure     = 1



const kNameSpace        = "root\cimv2"



'

' Generic strings

'

const L_Empty_Text                 = ""

const L_Space_Text                 = " "

const L_Error_Text                 = "Error"

const L_Success_Text               = "Correcto"

const L_Failed_Text                = "Error"

const L_Hex_Text                   = "0x"

const L_Printer_Text               = "Impresora"

const L_Operation_Text             = "Operaci�n"

const L_Provider_Text              = "Proveedor"

const L_Description_Text           = "Descripci�n"

const L_Debug_Text                 = "Depurar:"



'

' General usage messages

'

const L_Help_Help_General01_Text   = "Uso: prndrvr [-adlx?] [-m modelo][-v versi�n][-e entorno][-s servidor]"

const L_Help_Help_General02_Text   = "               [-u nombre usuario][-w contrase�a][-h ruta][-i archivo inf]"

const L_Help_Help_General03_Text   = "Argumentos:"

const L_Help_Help_General04_Text   = "-a     - agregar el controlador especificado"

const L_Help_Help_General05_Text   = "-d     - eliminar el controlador especificado"

const L_Help_Help_General06_Text   = "-e     - entorno ""Windows {NT x86 | X64 | IA64}"""

const L_Help_Help_General07_Text   = "-h     - ruta del archivo controlador"

const L_Help_Help_General08_Text   = "-i     - nombre completo del archivo INF"

const L_Help_Help_General09_Text   = "-l     - muestra todos los controladores"

const L_Help_Help_General10_Text   = "-m     - nombre del modelo de controlador"

const L_Help_Help_General11_Text   = "-s     - nombre del sevidor"

const L_Help_Help_General12_Text   = "-u     - nombre de usuario"

const L_Help_Help_General13_Text   = "-v     - versi�n"

const L_Help_Help_General14_Text   = "-w     - contrase�a"

const L_Help_Help_General15_Text   = "-x     - elimina todos los controladores que no se est�n usando"

const L_Help_Help_General16_Text   = "-?     - muestra el uso del comando"

const L_Help_Help_General17_Text   = "Ejemplos:"

const L_Help_Help_General18_Text   = "prndrvr -a -m ""controlador"" -v 3 -e ""Windows NT x86"""

const L_Help_Help_General19_Text   = "prndrvr -d -m ""controlador"" -v 3 -e ""Windows x64"""

const L_Help_Help_General20_Text   = "prndrvr -a -m ""controlador"" -v 3 -e ""Windows IA64"" -i c:\temp\drv\drv.inf -h c:\temp\drv"

const L_Help_Help_General21_Text   = "prndrvr -l -s servidor"

const L_Help_Help_General22_Text   = "prndrvr -x -s servidor"

const L_Help_Help_General23_Text   = "Notas:"

const L_Help_Help_General24_Text   = "Se debe escribir el nombre completo del archivo inf. Si no se especifica el nombre del archivo, el script usa"

const L_Help_Help_General25_Text   = "alguno de los archivos INF de impresora de la bandeja de entrada en el subdirectorio inf del directorio de Windows."

const L_Help_Help_General26_Text   = "Si no se especifica la ruta de acceso al controlador, el script busca archivos de controlador en el archivo driver.cab."

const L_Help_Help_General27_Text   = "La opci�n -x elimina todos los controladores de impresora adicionales (controladores instalados para usarlos en clientes que ejecutan"

const L_Help_Help_General28_Text   = "versiones alternativas de Windows), incluso si el controlador primario est� en uso. Si el componente de fax est� instalado,"

const L_Help_Help_General29_Text   = "esta opci�n elimina todos los controladores de fax adicionales. El controlador de fax primario tambi�n se elimina si no"

const L_Help_Help_General30_Text   = "est� en uso (es decir, si no hay una cola que lo est� usando). Si se elimina el controlador de fax primario, la �nica forma de"

const L_Help_Help_General31_Text   = "reactivar el fax es reinstalar el componente fax."



'

' Messages to be displayed if the scripting host is not cscript

'

const L_Help_Help_Host01_Text      = "Este script se debe ejecutar desde el s�mbolo del sistema por medio del comando CScript.exe."

const L_Help_Help_Host02_Text      = "Por ejemplo: CScript script.vbs argumentos"

const L_Help_Help_Host03_Text      = ""

const L_Help_Help_Host04_Text      = "Para establecer a CScript como la aplicaci�n predeterminada para ejecutar archivos .VBS, ejecute lo siguiente:"

const L_Help_Help_Host05_Text      = "     CScript //H:CScript //S"

const L_Help_Help_Host06_Text      = "Podr� entonces ejecutar ""script.vbs argumentos"" sin necesidad de agregar CScript antes del script."



'

' General error messages

'

const L_Text_Error_General01_Text  = "No se pudo determinar el host de scripting."

const L_Text_Error_General02_Text  = "No se puede analizar la l�nea de comandos."

const L_Text_Error_General03_Text  = "C�digo de error de Win32"



'

' Miscellaneous messages

'

const L_Text_Msg_General01_Text    = "Controlador de impresora agregado"

const L_Text_Msg_General02_Text    = "No se puede agregar el controlador de impresora"

const L_Text_Msg_General03_Text    = "No se puede eliminar el controlador de impresora"

const L_Text_Msg_General04_Text    = "Controlador de impresora eliminado"

const L_Text_Msg_General05_Text    = "No se pueden enumerar los controladores de impresora"

const L_Text_Msg_General06_Text    = "N�mero de controladores de impresora enumerados"

const L_Text_Msg_General07_Text    = "N�mero de controladores de impresora eliminados"

const L_Text_Msg_General08_Text    = "Intentando eliminar controlador de impresora"

const L_Text_Msg_General09_Text    = "No se pueden listat los archivos dependientes"

const L_Text_Msg_General10_Text    = "No se puede obtener el objeto SWbemLocator"

const L_Text_Msg_General11_Text    = "No se puede conectar con el servicio WMI"





'

' Printer driver properties

'

const L_Text_Msg_Driver01_Text     = "Nombre de servidor"

const L_Text_Msg_Driver02_Text     = "Nombre de controlador"

const L_Text_Msg_Driver03_Text     = "Version"

const L_Text_Msg_Driver04_Text     = "Entorno"

const L_Text_Msg_Driver05_Text     = "(Nombre del monitor)"

const L_Text_Msg_Driver06_Text     = "Ruta de acceso del controlador"

const L_Text_Msg_Driver07_Text     = "Archivo de datos"

const L_Text_Msg_Driver08_Text     = "Archivo de configuraci�n"

const L_Text_Msg_Driver09_Text     = "Archivo de ayuda"

const L_Text_Msg_Driver10_Text     = "Archivos dependientes"



'

' Debug messages

'

const L_Text_Dbg_Msg01_Text        = "En la funci�n AddDriver"

const L_Text_Dbg_Msg02_Text        = "En la funci�n DelDriver"

const L_Text_Dbg_Msg03_Text        = "En la funci�n DelAllDrivers"

const L_Text_Dbg_Msg04_Text        = "En la funci�n ListDrivers"

const L_Text_Dbg_Msg05_Text        = "En la funci�n ParseCommandLine"



main



'

' Main execution starts here

'

sub main



    dim iAction

    dim iRetval

    dim strServer

    dim strModel

    dim strPath

    dim uVersion

    dim strEnvironment

    dim strInfFile

    dim strUser

    dim strPassword



    '

    ' Abort if the host is not cscript

    '

    if not IsHostCscript() then



        call wscript.echo(L_Help_Help_Host01_Text & vbCRLF & L_Help_Help_Host02_Text & vbCRLF & _

                          L_Help_Help_Host03_Text & vbCRLF & L_Help_Help_Host04_Text & vbCRLF & _

                          L_Help_Help_Host05_Text & vbCRLF & L_Help_Help_Host06_Text & vbCRLF)



        wscript.quit



    end if



    '

    ' Get command line parameters

    '

    iRetval = ParseCommandLine(iAction, strServer, strModel, strPath, uVersion, _

                               strEnvironment, strInfFile, strUser, strPAssword)



    if iRetval = kErrorSuccess  then



        select case iAction



            case kActionAdd

                iRetval = AddDriver(strServer, strModel, strPath, uVersion, _

                                    strEnvironment, strInfFile, strUser, strPassword)



            case kActionDel

                iRetval = DelDriver(strServer, strModel, uVersion, strEnvironment, strUser, strPassword)



            case kActionDelAll

                iRetval = DelAllDrivers(strServer, strUser, strPassword)



            case kActionList

                iRetval = ListDrivers(strServer, strUser, strPassword)



            case kActionUnknown

                Usage(true)

                exit sub



            case else

                Usage(true)

                exit sub



        end select



    end if



end sub



'

' Add a driver

'

function AddDriver(strServer, strModel, strFilePath, uVersion, strEnvironment, strInfFile, strUser, strPassword)



    on error resume next



    DebugPrint kDebugTrace, L_Text_Dbg_Msg01_Text



    dim oDriver

    dim oService

    dim iResult

    dim uResult



    '

    ' Initialize return value

    '

    iResult = kErrorFailure



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



        set oDriver = oService.Get("Win32_PrinterDriver")



    else



        AddDriver = kErrorFailure



        exit function



    end if



    '

    ' Check if Get was successful

    '

    if Err.Number = kErrorSuccess then



        oDriver.Name              = strModel

        oDriver.SupportedPlatform = strEnvironment

        oDriver.Version           = uVersion

        oDriver.FilePath          = strFilePath

        oDriver.InfName           = strInfFile



        uResult = oDriver.AddPrinterDriver(oDriver)



        if Err.Number = kErrorSuccess then



            if uResult = kErrorSuccess then



                wscript.echo L_Text_Msg_General01_Text & L_Space_Text & oDriver.Name



                iResult = kErrorSuccess



            else



                wscript.echo L_Text_Msg_General02_Text & L_Space_Text & strModel & L_Space_Text _

                             & L_Text_Error_General03_Text & L_Space_Text & uResult



            end if



        else



            wscript.echo L_Text_Msg_General02_Text & L_Space_Text & strModel & 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_General02_Text & L_Space_Text & strModel & L_Space_Text _

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



    end if



    AddDriver = iResult



end function



'

' Delete a driver

'

function DelDriver(strServer, strModel, uVersion, strEnvironment, strUser, strPassword)



    on error resume next



    DebugPrint kDebugTrace, L_Text_Dbg_Msg02_Text



    dim oDriver

    dim oService

    dim iResult

    dim strObject



    '

    ' Initialize return value

    '

    iResult = kErrorFailure



    '

    ' Build the key that identifies the driver instance.

    '

    strObject = strModel & "," & CStr(uVersion) & "," & strEnvironment



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



        set oDriver = oService.Get("Win32_PrinterDriver.Name='" & strObject & "'")



    else



        DelDriver = kErrorFailure



        exit function



    end if



    '

    ' Check if Get was successful

    '

    if Err.Number = kErrorSuccess then



        '

        ' Delete the printer driver instance

        '

        oDriver.Delete_



        if Err.Number = kErrorSuccess then



            wscript.echo L_Text_Msg_General04_Text & L_Space_Text & oDriver.Name



            iResult = kErrorSuccess



        else



            wscript.echo L_Text_Msg_General03_Text & L_Space_Text & strModel & L_Space_Text _

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

                         & L_Space_Text & Err.Description



            call LastError()



        end if



    else



        wscript.echo L_Text_Msg_General03_Text & L_Space_Text & strModel & L_Space_Text _

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

                     & L_Space_Text & Err.Description



    end if



    DelDriver = iResult



end function



'

' Delete all drivers

'

function DelAllDrivers(strServer, strUser, strPassword)



    on error resume next



    DebugPrint kDebugTrace, L_Text_Dbg_Msg03_Text



    dim Drivers

    dim oDriver

    dim oService

    dim iResult

    dim iTotal

    dim iTotalDeleted

    dim vntDependentFiles

    dim strDriverName



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



        set Drivers = oService.InstancesOf("Win32_PrinterDriver")



    else



        DelAllDrivers = kErrorFailure



        exit function



    end if



    if Err.Number <> kErrorSuccess then



        wscript.echo L_Text_Msg_General05_Text & L_Space_Text & L_Error_Text & L_Space_Text _

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



        DelAllDrivers = kErrorFailure



        exit function



    end if



    iTotal = 0

    iTotalDeleted = 0



    for each oDriver in Drivers



        iTotal = iTotal + 1



        wscript.echo

        wscript.echo L_Text_Msg_General08_Text

        wscript.echo L_Text_Msg_Driver01_Text & L_Space_Text & strServer

        wscript.echo L_Text_Msg_Driver02_Text & L_Space_Text & oDriver.Name

        wscript.echo L_Text_Msg_Driver03_Text & L_Space_Text & oDriver.Version

        wscript.echo L_Text_Msg_Driver04_Text & L_Space_Text & oDriver.SupportedPlatform



        strDriverName = oDriver.Name



        '

        ' Example of how to delete an instance of a printer driver

        '

        oDriver.Delete_



        if Err.Number = kErrorSuccess then



            wscript.echo L_Text_Msg_General04_Text & L_Space_Text & oDriver.Name



            iTotalDeleted = iTotalDeleted + 1



        else



            '

            ' We cannot use oDriver.Name to display the driver name, because the SWbemLastError

            ' that the function LastError() looks at would be overwritten. For that reason we

            ' use strDriverName for accessing the driver name

            '

            wscript.echo L_Text_Msg_General03_Text & L_Space_Text & strDriverName & 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()



            Err.Clear



        end if



    next



    wscript.echo L_Empty_Text

    wscript.echo L_Text_Msg_General06_Text & L_Space_Text & iTotal

    wscript.echo L_Text_Msg_General07_Text & L_Space_Text & iTotalDeleted



    DelAllDrivers = kErrorSuccess



end function



'

' List drivers

'

function ListDrivers(strServer, strUser, strPassword)



    on error resume next



    DebugPrint kDebugTrace, L_Text_Dbg_Msg04_Text



    dim Drivers

    dim oDriver

    dim oService

    dim iResult

    dim iTotal

    dim vntDependentFiles



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



        set Drivers = oService.InstancesOf("Win32_PrinterDriver")



    else



        ListDrivers = kErrorFailure



        exit function



    end if



    if Err.Number <> kErrorSuccess then



        wscript.echo L_Text_Msg_General05_Text & L_Space_Text & L_Error_Text & L_Space_Text _

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



        ListDrivers = kErrorFailure



        exit function



    end if



    iTotal = 0



    for each oDriver in Drivers



        iTotal = iTotal + 1



        wscript.echo

        wscript.echo L_Text_Msg_Driver01_Text & L_Space_Text & strServer

        wscript.echo L_Text_Msg_Driver02_Text & L_Space_Text & oDriver.Name

        wscript.echo L_Text_Msg_Driver03_Text & L_Space_Text & oDriver.Version

        wscript.echo L_Text_Msg_Driver04_Text & L_Space_Text & oDriver.SupportedPlatform

        wscript.echo L_Text_Msg_Driver05_Text & L_Space_Text & oDriver.MonitorName

        wscript.echo L_Text_Msg_Driver06_Text & L_Space_Text & oDriver.DriverPath

        wscript.echo L_Text_Msg_Driver07_Text & L_Space_Text & oDriver.DataFile

        wscript.echo L_Text_Msg_Driver08_Text & L_Space_Text & oDriver.ConfigFile

        wscript.echo L_Text_Msg_Driver09_Text & L_Space_Text & oDriver.HelpFile



        vntDependentFiles = oDriver.DependentFiles



        '

        ' If there are no dependent files, the method will set DependentFiles to

        ' an empty variant, so we check if the variant is an array of variants

        '

        if VarType(vntDependentFiles) = (vbArray + vbVariant) then



            PrintDepFiles oDriver.DependentFiles



        end if



        Err.Clear



    next



    wscript.echo L_Empty_Text

    wscript.echo L_Text_Msg_General06_Text & L_Space_Text & iTotal



    ListDrivers = kErrorSuccess



end function



'

' Prints the contents of an array of variants

'

sub PrintDepFiles(Param)



   on error resume next



   dim iIndex



   iIndex = LBound(Param)



   if Err.Number = 0 then



      wscript.echo L_Text_Msg_Driver10_Text



      for iIndex = LBound(Param) to UBound(Param)



          wscript.echo L_Space_Text & Param(iIndex)



      next



   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



end sub



'

' 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 if



    end if



end sub



'

' Parse the command line into its components

'

function ParseCommandLine(iAction, strServer, strModel, strPath, uVersion, _

                          strEnvironment, strInfFile, strUser, strPassword)



    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 "-a"

                iAction = kActionAdd



            case "-d"

                iAction = kActionDel



            case "-l"

                iAction = kActionList



            case "-x"

                iAction = kActionDelAll



            case "-s"

                iIndex = iIndex + 1

                strServer = RemoveBackslashes(oArgs(iIndex))



            case "-m"

                iIndex = iIndex + 1

                strModel = oArgs(iIndex)



            case "-h"

                iIndex = iIndex + 1

                strPath = oArgs(iIndex)



            case "-v"

                iIndex = iIndex + 1

                uVersion = oArgs(iIndex)



            case "-e"

                iIndex = iIndex + 1

                strEnvironment = oArgs(iIndex)



            case "-i"

                iIndex = iIndex + 1

                strInfFile = oArgs(iIndex)



            case "-u"

                iIndex = iIndex + 1

                strUser = oArgs(iIndex)



            case "-w"

                iIndex = iIndex + 1

                strPassword = oArgs(iIndex)



            case "-?"

                Usage(true)

                exit function



            case else

                Usage(true)

                exit function



        end select



        iIndex = iIndex + 1



    wend



    if Err.Number <> 0 then



        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



    else



        ParseCommandLine = kErrorSuccess



    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_Empty_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_Empty_Text

    wscript.echo L_Help_Help_General27_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



    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



        end if



    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_General11_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_General10_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

Youez - 2016 - github.com/yon3zu
LinuXploit