פינת המדריך היומי מדריך | למחיקת הוירוס שעושה קיצור דרך

הנושא בפורום 'פורום תוכנה חומרה רשתות' פורסם ע"י פופקו, ‏24/10/13.

  1. המוצלחת

    המוצלחת משתמש פעיל

    הצטרף:
    ‏29/11/18
    הודעות:
    61
    תודות :
    416
    נקודות:
    59
    אינני מבינה גדולה אבל אני רוצה להוריד למחשב אנטי וירוס מה הכי יעיל וטוב???
     
  2. תודה רבה!

    תודה רבה! משתמש סופר מקצוען מוזיקה ונגינה פרסום וקופירייטינג

    הצטרף:
    ‏18/3/18
    הודעות:
    6,525
    תודות :
    32,249
    נקודות:
    293
    חינמי או בתשלום?
    באיזה שפה?
     
    מתכון, בשעות הפנאי ו-המוצלחת מודים על התגובה.
  3. המוצלחת

    המוצלחת משתמש פעיל

    הצטרף:
    ‏29/11/18
    הודעות:
    61
    תודות :
    416
    נקודות:
    59
    עדיף חינמי ובעברית ואולי אם תשלום פעוט!!
     
    תודה רבה! מודה על התגובה.
  4. המוצלחת

    המוצלחת משתמש פעיל

    הצטרף:
    ‏29/11/18
    הודעות:
    61
    תודות :
    416
    נקודות:
    59
    עדיף חינמי ובעברית ואולי אם תשלום פעוט!!
     
    תודה רבה! מודה על התגובה.
  5. תודה רבה!

    תודה רבה! משתמש סופר מקצוען מוזיקה ונגינה פרסום וקופירייטינג

    הצטרף:
    ‏18/3/18
    הודעות:
    6,525
    תודות :
    32,249
    נקודות:
    293
    אז eset
    @פרסומון מוכר ב150 ש''ח לשלוש שנים.
     
  6. רעואל

    רעואל משתמש פעיל מוזיקה ונגינה

    הצטרף:
    ‏4/2/19
    הודעות:
    418
    תודות :
    601
    נקודות:
    99
    בתכלס' יש לי נוד 8 והוא לא מצליח להוריד לי את הווירוס של קיצורי דרך,

    נוד 12 כן יעשה את העבודה?
     
  7. avi chazak

    avi chazak משתמש פעיל

    הצטרף:
    ‏9/10/18
    הודעות:
    665
    תודות :
    872
    נקודות:
    99
    חלץ ותפעיל את זה על הכונן הנגוע והוא יעשה לך את העבודה
     

    קבצים מצורפים:

    leha19, רעואל, aeb ומשתמש נוסף מודים על התגובה.
  8. רעואל

    רעואל משתמש פעיל מוזיקה ונגינה

    הצטרף:
    ‏4/2/19
    הודעות:
    418
    תודות :
    601
    נקודות:
    99
    1.PNG מישהו יודע אם התיקייה הזאת קשורה לווירוס?

    אני לא מצליח למחוק אותה.
     
  9. תודה רבה!

    תודה רבה! משתמש סופר מקצוען מוזיקה ונגינה פרסום וקופירייטינג

    הצטרף:
    ‏18/3/18
    הודעות:
    6,525
    תודות :
    32,249
    נקודות:
    293
    בעיקרון זה תיקיית מערכת שלא קשורה לוירוס (היא אמורה להיות מוסתרת).
    אבל יתכן שהוירוס נכנס גם לשם.

    אם כבר הרצתם ניקוי וירוסים, אז אין וירוסים בתוכו, והכל בסדר..
     
    רעואל מודה על התגובה.
  10. רעואל

    רעואל משתמש פעיל מוזיקה ונגינה

    הצטרף:
    ‏4/2/19
    הודעות:
    418
    תודות :
    601
    נקודות:
    99
    עברת על כל התיקיות לראות שהם בסדר?
     
  11. תודה רבה!

    תודה רבה! משתמש סופר מקצוען מוזיקה ונגינה פרסום וקופירייטינג

    הצטרף:
    ‏18/3/18
    הודעות:
    6,525
    תודות :
    32,249
    נקודות:
    293
    עניתי על התיקייה הספציפית, שעליה שאלת.

    אם כבר הרצתם סריקת וירוסים, אז כבר אין וירוס.

    ואפשר למחוק כל תיקייה שלא צריך.
     
    רעואל מודה על התגובה.
  12. leha19

    leha19 משתמש חדש

    הצטרף:
    ‏6/9/17
    הודעות:
    1
    תודות :
    12
    נקודות:
    4
    תודה רבה

    הגרסה היחידה שעזרה לי
     
    avi chazak מודה על התגובה.
  13. קץ הפלאות

    קץ הפלאות עימוד ספרים עימוד ספרים עריכה תורנית

    הצטרף:
    ‏2/1/18
    הודעות:
    878
    תודות :
    2,162
    נקודות:
    246
    עיסוק:
    הגהה תורנית
    XP SP2 שלא מתחבר לרשת נסיתי הכל ולא הלך
     
  14. aeb

    aeb משתמש מקצוען

    הצטרף:
    ‏10/6/18
    הודעות:
    1,270
    תודות :
    1,813
    נקודות:
    174
    מה הבעיה בדיוק ומה ניסית??
     
  15. קץ הפלאות

    קץ הפלאות עימוד ספרים עימוד ספרים עריכה תורנית

    הצטרף:
    ‏2/1/18
    הודעות:
    878
    תודות :
    2,162
    נקודות:
    246
    עיסוק:
    הגהה תורנית
    וירוס בשם: SYuemPA.exe
    skpe 2013
     
  16. קץ הפלאות

    קץ הפלאות עימוד ספרים עימוד ספרים עריכה תורנית

    הצטרף:
    ‏2/1/18
    הודעות:
    878
    תודות :
    2,162
    נקודות:
    246
    עיסוק:
    הגהה תורנית
     
  17. קץ הפלאות

    קץ הפלאות עימוד ספרים עימוד ספרים עריכה תורנית

    הצטרף:
    ‏2/1/18
    הודעות:
    878
    תודות :
    2,162
    נקודות:
    246
    עיסוק:
    הגהה תורנית
    זה נמצא בקובץ VBS -
    מישהו יודע אם זה תוכנה זדונית?

    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    CONST wshOK = 0
    CONST VALUE_ICON_WARNING = 16
    CONST wshYesNoDialog = 4
    CONST VALUE_ICON_QUESTIONMARK = 32
    CONST VALUE_ICON_INFORMATION = 64
    CONST HKEY_LOCAL_MACHINE = & H80000002
    CONST_SET_VALUE = & H0002
    CONST_QUERY_VALUE = & H0001
    CONST REG_SZ = 1
    CONST OfficeAppId = "59a52881-a989-479d-af46-f275c6370663"
    CONST STR_SYS32PATH = ": \ Windows \ System32 \"
    CONST REG_SPP = "SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform"
    '////////////////////////////////////////////////////////////////////////////////////////
    CONST MSG_NOREGRIGHTS = "Insufficient rights to perform operation."
    CONST MSG_ISCMD_ELEVATED = "Ensure cmd.exe is elevated (right click > run as administrator)."
    CONST MSG_CREDENTIALFAILURE = "Connection failed with passed credentials."
    CONST MSG_FILENOTFOUND = "File not found: "
    CONST MSG_CREDENTIALERR = "Passing credentials not supported for this option."
    CONST MSG_SEPERATE = "---------------------------------------"
    CONST MSG_PROCESSING = "---Processing--------------------------"
    CONST MSG_EXIT = "---Exiting-----------------------------"
    CONST MSG_UNSUPPORTED = "Unsupported command passed."
    CONST MSG_SUCCESS = "Successfully applied setting."
    CONST MSG_ACTATTEMPT = "Installed product key detected - attempting to activate the following product:"
    CONST MSG_TOKACTATTEMPT = "Installed product key detected - attempting to token activate the following product:"
    CONST MSG_NOKEYSINSTALLED = "<No installed product keys detected>"
    CONST MSG_UNINSTALLKEYSUCCESS = "<Product key uninstall successful>"
    CONST MSG_ACTSUCCESS = "<Product activation successful>"
    CONST MSG_OFFLINEACTSUCCESS = "<Offline product activation successful>"
    CONST MSG_KEYINSTALLSUCCESS = "<Product key installation successful>"
    CONST MSG_PARTIALKEY = "Last 5 characters of installed product key: "
    CONST MSG_UNINSTALLKEY = "Uninstalling product key for: "
    CONST MSG_UNRECOGFILE = "Unrecognized file. Office 2010 licenses have an .xrm-ms file extension."
    CONST MSG_INSTALLLICENSE = "Installing Office 2010 license: "
    CONST MSG_INSTALLLICSUCCESS = "Office 2010 license installed successfully."
    CONST MSG_SEARCHEVENTSKMS = "Searching for KMS activation events on machine: "
    CONST MSG_SEARCHEVENTSRET = "Searching for Internet activation failure events on machine: "
    CONST MSG_NOEVENTSSKMS = "No KMS activation events found on machine: "
    CONST MSG_NOEVENTSRET = "No failure events found on machine: "
    CONST MSG_OSPPSVC_NOINSTALL = "Error: The Software Protection Platform service is not installed."
    CONST MSG_OSPPSVC_NORUN = "Error: The Software Protection Platform service is not running."
    CONST MSG_ERRPARTIALKEY = "The last 5 characters of an installed product key are required to run this option. Run the /dstatus option to display the partial product key."
    CONST MSG_KEYNOTFOUND = "<Product key not found>"
    CONST MSG_CMID = "Client Machine ID (CMID): "
    CONST MSG_NOLICENSEFOUND = "<No licenses found>"
    CONST MSG_REMILID = "Removed Token-based Activation License with License ID (ILID): "
    CONST MSG_NOTFOUNDILID = "License not found with License ID (ILID): "
    '////////////////////////////////////////////////////////////////////////////////////////
    CONST MSG_SKUID = "SKU ID: "
    CONST MSG_LICENSENAME = "LICENSE NAME: "
    CONST MSG_DESCRIPTION = "LICENSE DESCRIPTION: "
    CONST MSG_LICSTATUS = "LICENSE STATUS: "
    CONST MSG_LICENSED = " ---LICENSED--- "
    CONST MSG_UNLICENSED = " ---UNLICENSED--- "
    CONST MSG_OOBGRACE = " ---OOB_GRACE--- "
    CONST MSG_OOTGRACE = " ---OOT_GRACE--- "
    CONST MSG_NONGENGRACE = " ---NON_GENUINE_GRACE--- "
    CONST MSG_NOTIFICATION = " ---NOTIFICATIONS--- "
    CONST MSG_EXTENDEDGRACE = " ---EXTENDED GRACE--- "
    CONST MSG_LICUNKNOWN = " ---UNKNOWN--- "
    CONST MSG_REMAINGRACE = "REMAINING GRACE: "
    CONST MSG_ERRCODE = "ERROR CODE: "
    CONST MSG_ERRDESC = "ERROR DESCRIPTION: "
    CONST MSG_ERRUNKNOWN = "An unknown error occurred."
    CONST MSG_ERRCODEVALUE = "An error code must start with '0x'. Example: 0xC004F009"
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    On Error Resume Next
    Set WshShell = WSCript.CreateObject("WSCript.Shell")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objNetwork = WSCript.CreateObject("WSCript.Network")
    Dim globalResource, globalErr, foundSlUi, strSluiPath, strLocal, objWMI, objWMI1, wmiErr, productinstances, strValue
    globalResource = ""
    globalErr = ""
    foundSlUi = False
    currentDir = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\"))
    Select Case WSCript.Arguments.Count
    Case 0
    verifyFileExists currentDir & "ospp.htm"
    showIePopUp currentDir & "ospp.htm"
    WScript.Quit
    Case 1
    var1 = WSCript.Arguments(0)
    Case 2
    var1 = WSCript.Arguments(0)
    var2 = WSCript.Arguments(1)
    Case 3
    var1 = WSCript.Arguments(0)
    var2 = WSCript.Arguments(1)
    var3 = WSCript.Arguments(2)
    Case 4
    var1 = WSCript.Arguments(0)
    var2 = WSCript.Arguments(1)
    var3 = WSCript.Arguments(2)
    var4 = WSCript.Arguments(3)
    Case Else
    End Select
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Call Main(var1,var2,var3,var4)
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Sub Main(strCommand,strMachine,strUser,strPassword)
    On Error Resume Next
    getEngine()
    pProcessing()
    getSlui()
    strLocal = objNetwork.ComputerName
    strCommand = LCase(strCommand)
    Select Case strCommand
    Case "/act", "/dstatus", "/dstatusall", "/dinstid", "/dtokils", _
    "/remhst", "/stokflag", "/ctokflag", "/dcmid", "/dtokcerts"
    connectWMI strMachine,strUser,strPassword,""
    performLicAction strCommand,"",""
    Case "/dhistoryacterr", "/dhistorykms"
    connectWMI strMachine,strUser,strPassword,""
    performLicAction strCommand,"",strMachine
    Case "/puserops", "/duserops"
    connectWMI strMachine,strUser,strPassword,"reg"
    performRegAction strCommand
    Case "/osppsvcrestart", "/osppsvcauto"
    connectWMI strMachine,strUser,strPassword,""
    performServiceAction strCommand
    Case "/help", "help", "?", "/?", "/?"
    verifyFileExists currentDir & "ospp.htm"
    showIePopUp currentDir & "ospp.htm"
    quitExit()
    Case "/regmof"
    registerMof "osppwmi.mof"
    Case Else
    pos = InStr(strCommand,":")
    If pos <> 8 Then
    globalPopFailure MSG_UNSUPPORTED,True
    End If

    getCommand = Left(strCommand,7)
    Select Case getCommand
    Case "/inpkey", "/unpkey", "/inslic", "/actcid", "/sethst", "/setprt", "/ddescr", "/rtokil", "/tokact"
    strValue = Replace(strCommand,getCommand & ":","")
    If strValue = "" Then
    globalPopFailure MSG_UNSUPPORTED & " A value is required for: " & strCommand,True
    End If

    If getCommand = "/ddescr" Then
    If Left(strValue,2) = "0x" Then
    getDescription strValue,""
    Else
    WScript.Echo MSG_ERRCODEVALUE
    quitExit()
    End If
    Else
    connectWMI strMachine,strUser,strPassword,""
    performLicAction getCommand,strValue,""
    End If
    Case Else
    globalPopFailure MSG_UNSUPPORTED,True
    End Select
    End Select
    End Sub
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function showIePopUp(strPath)
    On Error Resume Next
    Set objExplorer = CreateObject("InternetExplorer.Application")
    With objExplorer
    .Navigate strPath
    .ToolBar = 0
    .StatusBar = 0
    .Width = 1000
    .Height = 593
    .Left = 1
    .Top = 1
    .Visible = 1
    End With

    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function getEngine()
    strEngine = LCase(Right(WScript.FullName,12))
    If strEngine <> "\cscript.exe" Then
    WshShell.Popup "Unable to perform operation. " & WSCript.ScriptName & " requires the cscript engine." & _
    vbCr & "Command line example: cscript ospp.vbs ?", _
    ,WSCript.ScriptName, VALUE_ICON_WARNING
    WScript.Quit
    End If
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function WMIDateStringToDate(dtmEventDate)
    WMIDateStringToDate = CDate(Mid(dtmEventDate, 5, 2) & "/" & _
    Mid(dtmEventDate, 7, 2) & "/" & Left(dtmEventDate, 4) _
    & " " & Mid (dtmEventDate, 9, 2) & ":" & _
    Mid(dtmEventDate, 11, 2) & ":" & Mid(dtmEventDate, _
    13, 2))
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function getDescription(strSearch,cType)
    If foundSlUi <> True Then
    If cType <> "wmi" Then
    globalPopFailure "slui.exe not found.",True
    quitExit()
    End If
    Else
    Set objScriptExec = WshShell.Exec (strSluiPath & " 0x2a " & strSearch)
    readOut = objScriptExec.StdOut.ReadAll
    quitExit()
    End If
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function checkRegRights(wmiObject,strKeyPath)
    On Error Resume next
    wmiObject.CheckAccess HKEY_LOCAL_MACHINE, strKeyPath, KEY_SET_VALUE, _
    bHasAccessRight
    If bHasAccessRight = True Then
    'Success
    Else
    globalPopFailure MSG_NOREGRIGHTS & vbCr & MSG_ISCMD_ELEVATED,True
    End If
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function quitExit()
    Set WshShell = Nothing
    Set objFSO = Nothing
    Set objNetwork = Nothing
    Set objWMI = Nothing
    WScript.Echo MSG_SEPERATE
    WScript.Echo MSG_EXIT
    WSCript.Quit
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function verifyFileExists(file)
    If Not objFSO.FileExists(file) Then
    If file = currentDir & "slerror.xml" Then
    WScript.Echo "[" & MSG_FILENOTFOUND & file & " Unable to display error description.]"
    ElseIf file = currentDir & "ospp.htm" Then
    globalPopFailure MSG_FILENOTFOUND & vbCr & file,False
    quitExit()
    Else
    globalPopFailure MSG_FILENOTFOUND & vbCr & file,True
    End If
    End If
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function registerMof(strFile)
    For Each Drv In objFSO.Drives
    If Drv.DriveType=2 Then
    If objFSO.FileExists(Drv.DriveLetter & STR_SYS32PATH & "wbem\mofcomp.exe") Then
    foundComp = True
    strMofExePath = Drv.DriveLetter & STR_SYS32PATH & "wbem\mofcomp.exe"
    If objFSO.FileExists(Drv.DriveLetter & STR_SYS32PATH & "wbem\" & strFile) Then
    foundMof = True
    strOWmi = Drv.DriveLetter & STR_SYS32PATH & "wbem\" & strFile
    Set objScriptExec = WshShell.Exec (strMofExePath & " " & strOWmi)
    readOut = objScriptExec.StdOut.ReadAll
    WScript.Echo readOut
    quitExit()
    End If
    End If
    End If
    Next
    If foundComp <> True Then
    globalPopFailure MSG_FILENOTFOUND & Replace(STR_SYS32PATH,":","") & "wbem\mofcomp.exe",True
    Else
    If foundMof <> True Then
    globalPopFailure MSG_FILENOTFOUND & Replace(STR_SYS32PATH,":","") & "wbem\osppwmi.mof",True
    End If
    End If
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function pProcessing()
    WScript.Echo MSG_PROCESSING
    WScript.Echo MSG_SEPERATE

    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function getSlui()
    For Each Drv In objFSO.Drives
    If Drv.DriveType=2 Then
    If objFSO.FileExists(Drv.DriveLetter & STR_SYS32PATH & "slui.exe") Then
    strSluiPath = Drv.DriveLetter & STR_SYS32PATH & "slui.exe"
    foundSlUi = True
    Exit For
    End If
    End If
    Next
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function InstallKMSLicense(objSPP,licFile)
    WScript.Echo MSG_INSTALLLICENSE & licFile
    LicenseData = ReadAllTextFile(licFile)
    sppErrHandle()
    objSpp.InstallLicense(LicenseData)
    sppErrHandle()

    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    ' Returns the encoding for a givven file.
    ' Possible return values: ascii, unicode, unicodeFFFE (big-endian), utf-8
    Function GetFileEncoding(strFileName)
    Dim strData
    Dim strEncoding
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Type = 1 'adTypeBinary
    oStream.Open
    oStream.LoadFromFile(strFileName)
    ' Default encoding is ascii
    strEncoding = "ascii"
    strData = BinaryToString(oStream.Read(2))
    ' Check for little endian (x86) unicode preamble
    If (Len(strData) = 2) and strData = (Chr(255) + Chr(254)) Then
    strEncoding = "unicode"
    Else
    oStream.Position = 0
    strData = BinaryToString(oStream.Read(3))
    ' Check for utf-8 preamble
    If (Len(strData) >= 3) and strData = (Chr(239) + Chr(187) + Chr(191)) Then
    strEncoding = "utf-8"
    End If
    End If
    oStream.Close
    GetFileEncoding = strEncoding

    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    ' Converts binary data (VT_UI1 | VT_ARRAY) to a string (BSTR)
    Function BinaryToString(dataBinary)
    Dim i
    Dim str
    For i = 1 To LenB(dataBinary)
    str = str & Chr(AscB(MidB(dataBinary, i, 1)))
    Next
    BinaryToString = str

    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    ' Returns string containing the whole text file data.
    ' Supports ascii, unicode (little-endian) and utf-8 encoding.
    Function ReadAllTextFile(strFileName)
    Dim strData
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Type = 2 'adTypeText
    oStream.Open
    oStream.Charset = GetFileEncoding(strFileName)
    oStream.LoadFromFile(strFileName)
    strData = oStream.ReadText(-1) 'adReadAll
    oStream.Close
    ReadAllTextFile = strData

    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function sppErrHandle(strCommand)
    globalErr = Hex(Err.Number)
    Select Case Err.Number
    Case 0
    'Success
    Select Case strCommand
    Case "/act","/tokact"
    WScript.Echo MSG_ACTSUCCESS
    Case "/inpkey"
    WScript.Echo MSG_KEYINSTALLSUCCESS
    quitExit()
    Case "/inslic"
    WScript.Echo MSG_INSTALLLICSUCCESS
    quitExit()
    Case "/sethst","/setprt","/remhst","/stokflag","/ctokflag"
    WScript.Echo MSG_SUCCESS
    quitExit()
    Case "/rtokil"
    WScript.Echo MSG_REMILID & UCase(strValue)
    quitExit()
    Case "/unpkey"
    WScript.Echo MSG_UNINSTALLKEYSUCCESS
    quitExit()
    Case Else
    End Select
    Case Else
    verifyFileExists currentDir & "slerror.xml"
    getResource("err" & "0x" & globalErr)
    If globalResource = "" Then
    If Len(globalErr) <> "8" Then
    WScript.Echo MSG_ERRDESC & MSG_ERRUNKNOWN
    Else
    If foundSlUi = True Then
    WScript.Echo MSG_ERRCODE & "0x" & globalErr
    WScript.Echo MSG_ERRDESC & "Run the following: cscript ospp.vbs /ddescr:0x" & globalErr
    Else
    WScript.Echo MSG_ERRCODE & "0x" & globalErr
    End If
    End If
    Else
    WScript.Echo MSG_ERRCODE & "0x" & globalErr
    Wscript.Echo MSG_ERRDESC & globalResource
    End If

    If strCommand = "/dtokcerts" Or strCommand = "/ignore" Then
    quitExit()
    End If
    End Select
    If globalErr = "C004F074" Then
    WScript.Echo "To view the activation event history run: cscript " & WScript.ScriptName & " /dhistorykms"
    End If
    globalResource = ""
    globalErr = ""
    Err.Clear
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function ErrHandle()
    globalErr = Hex(Err.Number)
    sppErrHandle()
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function wmiErrHandle()
    Select Case Err.Number
    Case 0
    'Successs
    Case 424
    globalPopFailure MSG_ERRCODE & Err.Number & vbCr & MSG_ERRDESC & MSG_CREDENTIALFAILURE,True
    Case Else
    If Err.Description <> "" Then
    globalPopFailure MSG_ERRCODE & Err.Number & vbCr & MSG_ERRDESC & Err.Description,True
    Else
    globalPopFailure "An error occurred while making the connection." & vbCr & MSG_ERRCODE & Err.Number,True
    End If
    End Select
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function setRegValue(wmiObject,opsValue,strValueName)
    On Error Resume Next
    Err.Clear()
    strKeyPath = REG_SPP
    Select Case strValueName
    Case "UserOperations"
    wmiObject.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
    wmiObject.SetDWORDValue HKEY_LOCAL_MACHINE,_
    strKeyPath,strValueName,opsValue
    Case Else
    End Select
    wmiErrHandle()
    WScript.Echo MSG_SUCCESS
    quitExit()
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function getResource(resource)
    On Error Resume Next
    Set xmlDoc = CreateObject("Msxml2.DOMDocument")
    xmlDoc.load(currentDir & "slerror.xml")
    Set ElemList = xmlDoc.getElementsByTagName(resource)
    resValue = ElemList.item(0).text
    globalResource = resValue
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function globalPopSuccess(strSuccess,boolQuit)
    If boolQuit = True Then
    WshShell.Popup strSuccess,,WScript.ScriptName, wshOK + VALUE_ICON_INFORMATION
    quitExit()
    Else
    WshShell.Popup strSuccess,,WScript.ScriptName, wshOK + VALUE_ICON_INFORMATION
    End If
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function globalPopFailure(strFailure,boolQuit)
    If boolQuit = True Then
    WshShell.Popup strFailure,,WScript.ScriptName, wshOK + VALUE_ICON_WARNING
    quitExit()
    Else
    WshShell.Popup strFailure,,WScript.ScriptName, wshOK + VALUE_ICON_WARNING
    End If
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function connectWMI(strMachine,strUser,strPassword,ctype)
    On Error Resume Next
    If ctype = "" Then
    If strMachine = "" Or LCase(strMachine) = LCase(strLocal) Then
    Set objWMI = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
    Else
    If strUser = "" And strPassword = "" Then
    Set objWMI = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strMachine & "\root\cimv2")
    Else
    Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
    Set objWMI = objSWbemLocator.ConnectServer _
    (strMachine, "\root\cimv2", strUser, strPassword)
    wmiErr = CStr(Hex(Err.Number))
    If Len(wmiErr) = "8" Then
    getDescription "0x" & wmiErr,"wmi"
    End If
    objWMI.Security_.ImpersonationLevel = 3
    End If
    End If
    Else
    If strUser <> "" Then
    globalPopFailure MSG_CREDENTIALERR,True
    End If
    If strMachine = "" Or LCase(strMachine) = LCase(strLocal) Then
    Set objWMI = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & "." & "\root\default:StdRegProv")

    Set objWMI1 = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
    Else
    Set objWMI = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strMachine & "\root\default:StdRegProv")

    Set objWMI1 = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strMachine & "\root\cimv2")
    End If
    End If
    wmiErrHandle()
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Private Function TkaGetSigner()
    On Error Resume Next
    Set TkaGetSigner = WScript.CreateObject("OSPPWMI.OSppWmiTokenActivationSigner")
    If Hex(Err.Number) = "80020009" Then
    globalPopFailure MSG_ERRCODE & "0x" & Hex(Err.Number) & vbCr & MSG_ERRDESC & Err.Description,True
    End If
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function TkaPrintCertificate(strThumbprint)
    arrParams = Split(strThumbprint, "|")
    WScript.Echo "Thumbprint: " & arrParams(0)
    WScript.Echo "Subject: " & arrParams(1)
    WScript.Echo "Issuer: " & arrParams(2)
    vf = FormatDateTime(CDate(arrParams(3)), vbShortDate)
    WScript.Echo "Valid From: " & vf
    vt = FormatDateTime(CDate(arrParams(4)), vbShortDate)
    WScript.Echo "Valid To: " & vt
    WScript.Echo MSG_SEPERATE

    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function ExecuteQuery(strSelect,strWhere,strClass)

    Err.Clear

    If strWhere = "" Then
    Set productinstances = objWMI.ExecQuery("SELECT " & strSelect & " FROM " & strClass)
    Else
    Set productinstances = objWMI.ExecQuery("SELECT " & strSelect & " FROM " & strClass & " WHERE " & strWhere)
    End If

    sppErrHandle ""
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function performLicAction(strCommand,strValue,strMachine)
    On Error Resume Next
    If strCommand = "/dhistorykms" Or strCommand = "/dhistoryacterr" Then
    verifyFileExists currentDir & "slerror.xml"
    If strCommand = "/dhistorykms" Then
    '12288 = KMS Activation event id
    eventCode = "12288"
    strSrcEvents = MSG_SEARCHEVENTSKMS
    strNoEvents = MSG_NOEVENTSSKMS
    Else
    '8200 = Internet Activation event id
    eventCode = "8200"
    strSrcEvents = MSG_SEARCHEVENTSRET
    strNoEvents = MSG_NOEVENTSRET
    End If

    If strMachine <> "" Then
    WScript.Echo strSrcEvents & strMachine
    Else
    WScript.Echo strSrcEvents & strLocal
    End If

    WScript.Echo "Event ID: " & eventCode
    WScript.Echo vbCr
    Set objEvents = objWMI.ExecQuery _
    ("Select * from Win32_NTLogEvent Where Logfile = 'Application' and " _
    & "EventCode = '" & eventCode & "'")
    If objEvents.Count > 0 Then
    For each objEvent in objEvents
    If strCommand = "/dhistoryacterr" Then
    i = i + 1
    dtmEventDate = objEvent.TimeWritten
    strTimeWritten = WMIDateStringToDate(dtmEventDate)
    WScript.Echo "Coordinated Universal Time Written: " & strTimeWritten
    strReplCrs = Replace(objEvent.Message,vbCrLf,"")
    WScript.Echo "MESSAGE: " & strReplCrs
    strhr10 = Right(strReplCrs,10)
    getResource("err" & strhr10)
    If globalResource = "" Then
    If foundSlUi = True Then
    WScript.Echo MSG_ERRDESC & "Run the following: cscript ospp.vbs /ddescr:" & strhr10
    Else
    WScript.Echo MSG_ERRDESC & "Not available."
    End If
    Else
    Wscript.Echo MSG_ERRDESC & globalResource
    End If
    WScript.Echo MSG_SEPERATE
    Else
    strhr10 = Mid(objEvent.Message,90,10)
    strReplCrs = Replace(objEvent.Message,vbCrLf,"")
    If Right(strReplCrs,2) = " 5" Then
    strReplStrs = Replace(strReplCrs,"The client has sent an activation request to the key management service machine.Info:","")
    dtmEventDate = objEvent.TimeWritten
    strTimeWritten = WMIDateStringToDate(dtmEventDate)
    WScript.Echo "Coordinated Universal Time Written: " & strTimeWritten
    intColon = InStr(strReplStrs,":")
    strErrHost = Left(strReplStrs,intColon)
    strErrHost = Trim(strErrHost)
    strErrHost = Replace(strErrHost,":","")
    WScript.Echo "ERROR/HOST: " & strErrHost
    Select Case strhr10
    Case "0x00000000"
    WScript.Echo MSG_ERRDESC & "N/A"
    Case Else
    getResource("err" & strhr10)
    If globalResource = "" Then
    If foundSlUi = True Then
    WScript.Echo MSG_ERRDESC & "Run the following: cscript ospp.vbs /ddescr:" & strhr10
    Else
    WScript.Echo MSG_ERRDESC & "Not available."
    End If
    Else
    Wscript.Echo MSG_ERRDESC & globalResource
    End If
    End Select
    WScript.Echo MSG_SEPERATE
    End If
    End If
    Next
    Else
    WScript.Echo MSG_SEPERATE
    If strMachine <> "" Then
    WScript.Echo strNoEvents & strMachine
    Else
    WScript.Echo strNoEvents & strLocal
    End If
    WScript.Echo MSG_SEPERATE
    End If
    quitExit()
    End If
    Set colListOfServices = objWMI.ExecQuery _
    ("Select * from Win32_Service ")
    For Each objService in colListOfServices
    If objService.Name = "osppsvc" Then
    installed = True
    If LCASE(objService.State) = "running" Then
    running = True
    End If
    Exit For
    End If
    Next

    If installed <> True Then
    globalPopFailure MSG_OSPPSVC_NOINSTALL,True
    End If
    If running <> True Then
    Set colOperatingSystems = objWMI.ExecQuery _
    ("Select * from Win32_OperatingSystem")
    For Each objOperatingSystem in colOperatingSystems
    strOsVersion = Left(objOperatingSystem.Version,3)
    Exit For
    Next

    Select Case strOsVersion
    Case "5.0", "5.1", "5.2"
    globalPopFailure MSG_OSPPSVC_NORUN & vbcr & "Current State: " & objService.State & vbCr & "Run: cscript ospp.vbs /osppsvcrestart",True
    Case Else
    End Select
    End If

    Select Case strCommand
    Case "/inpkey", "/dcmid", "/inslic", "/sethst", "/setprt", "/remhst", "/stokflag", "/ctokflag"
    For Each objService in objWMI.InstancesOf("OfficeSoftwareProtectionService")
    Set objOspp = objService
    Exit For
    Next
    Case Else
    End Select
    sppErrHandle ""
    If strCommand = "/inpkey" Then
    i = i + 1
    Err.Clear
    objOspp.InstallProductKey(strValue)
    SppErrHandle(strCommand)
    ElseIf strCommand = "/dcmid" Then
    If objOspp.ClientMachineID <> "" Or objOspp.ClientMachineID <> Null Then
    WScript.Echo MSG_CMID & objOspp.ClientMachineID
    Else
    WScript.Echo MSG_CMID & "Not found."
    End If
    quitExit()
    ElseIf strCommand = "/inslic" Then
    i = i + 1
    If Right(strValue,7) = ".xrm-ms" Then
    verifyFileExists strValue
    WScript.Echo MSG_INSTALLLICENSE & strValue
    Else
    globalPopFailure MSG_UNRECOGFILE,True
    End If
    LicenseData = ReadAllTextFile(strValue)
    objOSpp.InstallLicense(LicenseData)
    SppErrHandle(strCommand)
    ElseIf strCommand = "/sethst" Then
    i = i + 1
    objOspp.SetKeyManagementServiceMachine(strValue)
    SppErrHandle(strCommand)
    ElseIf strCommand = "/setprt" Then
    i = i + 1
    objOspp.SetKeyManagementServicePort(strValue)
    SppErrHandle(strCommand)
    ElseIf strCommand = "/remhst" Then
    i = i + 1
    objOspp.ClearKeyManagementServiceMachine()
    sppErrHandle ""
    objOspp.ClearKeyManagementServicePort()
    SppErrHandle(strCommand)
    ElseIf strCommand = "/stokflag" Then
    i = i + 1
    objOspp.DisableKeyManagementServiceActivation(True)
    SppErrHandle(strCommand)
    ElseIf strCommand = "/ctokflag" Then
    i = i + 1
    objOspp.DisableKeyManagementServiceActivation(False)
    SppErrHandle(strCommand)
    ElseIf strCommand = "/dtokils" Then
    Err.Clear
    Set objWmiDate = CreateObject("WBemScripting.SWbemDateTime")
    ExecuteQuery "ILID, ILVID, AuthorizationStatus, ExpirationDate, Description, AdditionalInfo","","OfficeSoftwareProtectionTokenActivationLicense"

    For Each instance in productinstances
    sppErrHandle ""
    i = i + 1
    WScript.Echo "License ID (ILID): " & instance.ILID
    WScript.Echo "Version ID (ILvID): " & instance.ILVID
    If Not IsNull(instance.ExpirationDate) Then
    objWmiDate.Value = instance.ExpirationDate
    If (objWmiDate.GetFileTime(false) <> 0) Then
    WScript.Echo "Expiry Date: " & objWmiDate.GetVarDate
    End If
    End If
    If Not IsNull(instance.AdditionalInfo) Then
    WScript.Echo "Additional Info: " & instance.AdditionalInfo
    End If
    If Not IsNull(instance.AuthorizationStatus) And instance.AuthorizationStatus <> 0 Then
    globalErr = CStr(Hex(instance.AuthorizationStatus))
    sppErrHandle()
    Else
    WScript.Echo "Description: " & instance.Description
    End If
    WScript.Echo MSG_SEPERATE
    Next
    If i = 0 Then
    WScript.Echo MSG_NOLICENSEFOUND
    End If
    quitExit()
    ElseIf strCommand = "/rtokil" Then
    Err.Clear
    ExecuteQuery "ILID, ID","","OfficeSoftwareProtectionTokenActivationLicense"

    For Each instance in productinstances
    sppErrHandle ""
    i = i + 1
    If LCase(strValue) = LCase(instance.ILID) Then
    instance.Uninstall
    SppErrHandle(strCommand)
    Else
    WScript.Echo MSG_NOTFOUNDILID & strValue & " Run /dtokils to display the ILID for installed licenses."
    End If
    Next
    If i = 0 Then
    WScript.Echo MSG_NOLICENSEFOUND
    End If
    quitExit()
    ElseIf strCommand = "/dtokcerts" Then
    Err.Clear
    Set objSigner = TkaGetSigner()
    sppErrHandle(strCommand)
    ExecuteQuery "ID, Name, ApplicationId, PartialProductKey, Description, LicenseIsAddon ","ApplicationId = '" & OfficeAppId & "' " & "AND PartialProductKey <> NULL " & "AND LicenseIsAddon = FALSE","OfficeSoftwareProtectionProduct"

    For each instance in productinstances
    i = i + 1
    sppErrHandle ""
    iRet = instance.GetTokenActivationGrants(arrGrants)
    If Err.Number = 0 Then
    arrThumbprints = objSigner.GetCertificateThumbprints(arrGrants)
    If Err.Number = 0 Then
    For Each strThumbprint in arrThumbprints
    TkaPrintCertificate strThumbprint
    Next
    Else
    sppErrHandle ""
    End If
    Else
    sppErrHandle ""
    End If
    WScript.Echo MSG_SEPERATE
    Err.Clear
    Next
    ElseIf strCommand = "/tokact" Then
    Err.Clear
    Set objSigner = TkaGetSigner()
    sppErrHandle "/ignore"
    pos1 = InStr(strValue,":")
    If pos1 = 0 Then
    'PIN not passed
    strThumbprint = strValue
    Else
    'PIN passed
    strThumbprint = Left(strValue,pos1 - 1)
    strPin = Replace(strValue,strThumbprint & ":","")
    End If

    ExecuteQuery "ID, Name, ApplicationId, PartialProductKey, Description, LicenseIsAddon ","ApplicationId = '" & OfficeAppId & "' " & "AND PartialProductKey <> NULL " & "AND LicenseIsAddon = FALSE","OfficeSoftwareProtectionProduct"

    For each instance in productinstances
    i = i + 1
    sppErrHandle ""
    WScript.Echo MSG_TOKACTATTEMPT
    WScript.Echo MSG_SKUID & instance.ID
    WScript.Echo MSG_LICENSENAME & instance.Name
    WScript.Echo MSG_DESCRIPTION & instance.Description
    WScript.Echo MSG_PARTIALKEY & instance.PartialProductKey
    iRet = instance.GenerateTokenActivationChallenge(strChallenge)
    If Err.Number = 0 Then
    strAuthInfo1 = objSigner.Sign(strChallenge, strThumbprint, strPin, strAuthInfo2)
    If Err.Number = 0 Then
    iRet = instance.DepositTokenActivationResponse(strChallenge, strAuthInfo1, strAuthInfo2)
    SppErrHandle(strCommand)
    Else
    sppErrHandle ""
    End If
    Else
    sppErrHandle ""
    End If
    WScript.Echo MSG_SEPERATE
    Next
    Else
    Err.Clear
    If strCommand = "/dstatus" or strCommand = "/dstatusall" Then
    ExecuteQuery "ID, ApplicationId, PartialProductKey, Description, Name, LicenseStatus, LicenseStatusReason, ProductKeyID, GracePeriodRemaining","","OfficeSoftwareProtectionProduct"
    ElseIf strCommand = "/act" Then
    ExecuteQuery "ID, ApplicationId, PartialProductKey, Description, Name","PartialProductKey <> null","OfficeSoftwareProtectionProduct"
    ElseIf strCommand = "/unpkey" Then
    ExecuteQuery "ID, ApplicationId, PartialProductKey, Name, ProductKeyID","","OfficeSoftwareProtectionProduct"
    ElseIf strCommand = "/dinstid" Or strCommand = "/actcid" Then
    ExecuteQuery "ID, ApplicationId, PartialProductKey, Name, OfflineInstallationId","PartialProductKey <> null","OfficeSoftwareProtectionProduct"
    End If

    For Each instance in productinstances
    sppErrHandle ""
    If (LCase(instance.ApplicationId) = OfficeAppId) Then
    If instance.PartialProductKey <> "" Then
    i = i + 1
    End If
    Select Case strCommand
    Case "/act"
    WScript.Echo MSG_ACTATTEMPT
    WScript.Echo MSG_SKUID & instance.ID
    WScript.Echo MSG_LICENSENAME & instance.Name
    WScript.Echo MSG_DESCRIPTION & instance.Description
    WScript.Echo MSG_PARTIALKEY & instance.PartialProductKey
    instance.Activate
    SppErrHandle(strCommand)
    WScript.Echo MSG_SEPERATE
    Case "/unpkey"
    If Len(strValue) <> "5" Then
    globalPopFailure MSG_ERRPARTIALKEY,True
    End If
    If UCase(strValue) = instance.PartialProductKey Then
    y = y + 1
    WScript.Echo MSG_UNINSTALLKEY & instance.Name
    instance.UninstallProductKey(instance.ProductKeyID)
    SppErrHandle(strCommand)
    End If
    Case "/dinstid"
    WScript.Echo "Installation ID for: " & instance.Name & ": " & instance.OfflineInstallationId
    WScript.Echo MSG_SEPERATE
    Case "/actcid"
    instance.DepositOfflineConfirmationId instance.OfflineInstallationId, strValue
    If Err.Number = 0 Then
    If telsuccess <> True Then
    WScript.Echo MSG_LICENSENAME & instance.Name
    WScript.Echo MSG_OFFLINEACTSUCCESS
    telsuccess = True
    End If
    Else
    WScript.Echo MSG_LICENSENAME & instance.Name
    sppErrHandle ""
    End If
    WScript.Echo MSG_SEPERATE
    Case "/dstatus", "/dstatusall"
    getInstalled = False
    verifyFileExists currentDir & "slerror.xml"
    licSr = Hex(instance.LicenseStatusReason)
    If strCommand = "/dstatusall" Then
    getInstalled = True
    WScript.Echo MSG_SKUID & instance.ID
    WScript.Echo MSG_LICENSENAME & instance.Name
    WScript.Echo MSG_DESCRIPTION & instance.Description
    Else
    If instance.ProductKeyID <> "" Then
    getInstalled = True
    WScript.Echo MSG_SKUID & instance.ID
    WScript.Echo MSG_LICENSENAME & instance.Name
    WScript.Echo MSG_DESCRIPTION & instance.Description
    End If
    End If

    If getInstalled = True Then
    Select Case instance.LicenseStatus
    Case 0
    WScript.Echo MSG_LICSTATUS & MSG_UNLICENSED
    Case 1
    WScript.Echo MSG_LICSTATUS & MSG_LICENSED
    If licSr = 0 Then
    WScript.Echo MSG_ERRCODE & licSr & " as licensed"
    End If
    Case 2
    WScript.Echo MSG_LICSTATUS & MSG_OOBGRACE
    Case 3
    WScript.Echo MSG_LICSTATUS & MSG_OOTGRACE
    Case 4
    WScript.Echo MSG_LICSTATUS & MSG_NONGENGRACE
    Case 5
    WScript.Echo MSG_LICSTATUS & MSG_NOTIFICATION
    Case 6
    WScript.Echo MSG_LICSTATUS & MSG_EXTENDEDGRACE
    Case Else
    WScript.Echo MSG_LICSTATUS & MSG_LICUNKNOWN
    End Select

    If licSr <> "0" Then
    WScript.Echo MSG_ERRCODE & "0x" & licSr
    getResource("err" & "0x" & licSr)
    If globalResource = "" Then
    If foundSlUi <> True Then
    WScript.Echo MSG_ERRDESC & "Not available."
    Else
    WScript.Echo MSG_ERRDESC & "Run the following: cscript ospp.vbs /ddescr:0x" & licSr
    End if
    Else
    WScript.Echo MSG_ERRDESC & globalResource
    End If
    End If

    If instance.PartialProductKey <> "" Then
    WScript.Echo MSG_PARTIALKEY & instance.PartialProductKey
    End If

    If instance.GracePeriodRemaining <> 0 Then
    dGrace = instance.GracePeriodRemaining / 60 / 24
    WScript.Echo MSG_REMAINGRACE & Round(dGrace) & " days " & " (" & instance.GracePeriodRemaining & " minute(s) before expiring" & ")"
    End If
    WScript.Echo MSG_SEPERATE
    End If
    Case Else
    End Select
    End If
    Next
    End If
    If strCommand = "/unpkey" And y = 0 Then
    WScript.Echo MSG_KEYNOTFOUND
    quitExit()
    End If
    If i = 0 Then
    WScript.Echo MSG_NOKEYSINSTALLED
    WScript.Echo MSG_SEPERATE
    End If
    quitExit()
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function performRegAction(strCommand)
    On Error Resume Next
    Set colListOfServices = objWMI1.ExecQuery _
    ("Select * from Win32_Service ")
    For Each objService in colListOfServices
    If objService.Name = "osppsvc" Then
    installed = True
    Exit For
    End If
    Next

    If installed <> True Then
    globalPopFailure MSG_OSPPSVC_NOINSTALL,True
    End If
    checkRegRights objWMI,REG_SPP
    Select Case strCommand
    Case "/puserops"
    setRegValue objWMI,"1","UserOperations"
    Case "/duserops"
    setRegValue objWMI,"0","UserOperations"
    End Select
    End Function
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
    Function performServiceAction(strCommand)
    On Error Resume Next
    Set colListOfServices = objWMI.ExecQuery _
    ("Select * from Win32_Service ")
    For Each objService in colListOfServices
    If objService.Name = "osppsvc" Then
    installed = True
    Exit For
    End If
    Next

    If installed <> True Then
    globalPopFailure MSG_OSPPSVC_NOINSTALL,True
    End If
    Set objService = Nothing
    Set colListOfServices = Nothing
    If strCommand = "/osppsvcauto" Then
    Set colListOfServices = objWMI.ExecQuery _
    ("Select * from Win32_Service where StartMode = 'Manual' or StartMode = 'Disabled'")
    For Each objService in colListOfServices
    If LCase(objService.Name) = "osppsvc" Then
    foundOsppNonAuto = True
    objService.Change , , , , "Automatic"
    WScript.Sleep(15000)
    Exit For
    End If
    Next
    If foundOsppNonAuto <> True Then
    WScript.Echo "Service startup type already set to automatic: Office Software Protection Platform"
    quitExit()
    End If

    Set objService = Nothing
    Set colListOfServices = Nothing
    Set colListOfServices = objWMI.ExecQuery _
    ("Select * from Win32_Service where StartMode = 'Auto'")
    For Each objService in colListOfServices
    If LCase(objService.Name) = "osppsvc" Then
    foundOsppAuto = True
    WScript.Echo "Successfully set service startup to automatic:" & objService.DisplayName
    quitExit()
    End If
    Next

    If foundOsppAuto <> True Then
    WScript.Echo "Unsuccessful setting service startup to automatic. " & MSG_ISCMD_ELEVATED
    quitExit()
    End If
    Else
    Set colListOfServices = objWMI.ExecQuery _
    ("Select * from Win32_Service ")
    For Each objService in colListOfServices
    If LCase(objService.Name) = "osppsvc" Then
    Select Case LCase(objService.State)
    Case "running"
    objService.StopService()
    WScript.Sleep(15000)
    objService.StartService()
    WScript.Sleep(15000)
    Case Else
    objService.StartService()
    WScript.Sleep(15000)
    End Select
    Exit For
    End If
    Next

    Set objService = Nothing
    Set colListOfServices = Nothing
    Set colListOfServices = objWMI.ExecQuery _
    ("Select * from Win32_Service ")
    For Each objService in colListOfServices
    If LCase(objService.Name) = "osppsvc" Then
    If LCase(objService.State) = "running" Then
    WScript.Echo "Successfully restarted: " & objService.DisplayName
    quitExit()
    Else
    WScript.Echo "הפעלה מחדש לא מוצלחת:" & objService.DisplayName & "מצב:" _
    & objService.State & "." & MSG_ISCMD_ELEVATED
    quitExit ()
    סיום אם
    יציאה עבור
    סיום אם
    הבא
    סיום אם
    סוף פונקציה
    '////////////////////////////////////////////////////////////////////////////////////////
    '////////////////////////////////////////////////////////////////////////////////////////
     
  18. aeb

    aeb משתמש מקצוען

    הצטרף:
    ‏10/6/18
    הודעות:
    1,270
    תודות :
    1,813
    נקודות:
    174
    תעלה את הקובץ לאתר הזה וסרוק אותו
     
  19. צורבא מרבנן

    צורבא מרבנן משתמש חדש

    הצטרף:
    ‏13/9/18
    הודעות:
    18
    תודות :
    4
    נקודות:
    4
    בס"ד
    כל הכבוד על המדריך, כרגע אני לא זקוק לזה כי השגתי אנטי וירוס NOD32 והוא עושה את העבודה של המחיקה של הקיצורי דרך בצורה מצויינת, ככה שלמי שיש אנטי וירוס NOD32 או שיכול להשיג אותו שיעשה סריקה איתו והוא ימחוק לו את כל הקיצורי דרך האלה.
    לפי מה שידוע לי ישנה אפשרות סריקה של האנטי וירוס הזה דרך האינטרנט והיא סריקה חינמית, רק שלא הבנתי איך משתמשים בה אבל מי שמעוניין שינסה גם את האפשרות הזאת.
     
  20. יוסתי

    יוסתי משתמש מקצוען עיצוב גרפי

    הצטרף:
    ‏19/8/18
    הודעות:
    149
    תודות :
    438
    נקודות:
    104
    עיסוק:
    סאונד ומוזיקה
    מיקום:
    בואנוס איירס, ארגנטינה
    מישהו מכיר תוכנת אנטיוירוס חינמית ופשוטה לדיסק און קי