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

המוצלחת

משתמש פעיל
מוזיקה ונגינה
אינני מבינה גדולה אבל אני רוצה להוריד למחשב אנטי וירוס מה הכי יעיל וטוב???
 

רעואל

משתמש פעיל
מוזיקה ונגינה
בתכלס' יש לי נוד 8 והוא לא מצליח להוריד לי את הווירוס של קיצורי דרך,

נוד 12 כן יעשה את העבודה?
 

avi chazak

משתמש מקצוען
בתכלס' יש לי נוד 8 והוא לא מצליח להוריד לי את הווירוס של קיצורי דרך,

נוד 12 כן יעשה את העבודה?
חלץ ותפעיל את זה על הכונן הנגוע והוא יעשה לך את העבודה
 

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

  • תיקון הכללי v7.zip
    KB 4.6 · צפיות: 174

רעואל

משתמש פעיל
מוזיקה ונגינה
1.PNG
מישהו יודע אם התיקייה הזאת קשורה לווירוס?

אני לא מצליח למחוק אותה.
 

תודה רבה!

מהמשתמשים המובילים!
צפה בקובץ המצורף 484263 מישהו יודע אם התיקייה הזאת קשורה לווירוס?

אני לא מצליח למחוק אותה.
בעיקרון זה תיקיית מערכת שלא קשורה לוירוס (היא אמורה להיות מוסתרת).
אבל יתכן שהוירוס נכנס גם לשם.

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

מהודר!

סופר מקצוען באינדיזיין!!!
מנוי פרימיום
בוגר/תלמיד פרוג
עימוד ספרים
עריכה תורנית
XP SP2 שלא מתחבר לרשת נסיתי הכל ולא הלך
 

מהודר!

סופר מקצוען באינדיזיין!!!
מנוי פרימיום
בוגר/תלמיד פרוג
עימוד ספרים
עריכה תורנית
וירוס בשם: SYuemPA.exe
skpe 2013
 

מהודר!

סופר מקצוען באינדיזיין!!!
מנוי פרימיום
בוגר/תלמיד פרוג
עימוד ספרים
עריכה תורנית
זה נמצא בקובץ 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 ()
סיום אם
יציאה עבור
סיום אם
הבא
סיום אם
סוף פונקציה
'////////////////////////////////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////////////////////
 

צורבא מרבנן

משתמש חדש
בס"ד
כל הכבוד על המדריך, כרגע אני לא זקוק לזה כי השגתי אנטי וירוס NOD32 והוא עושה את העבודה של המחיקה של הקיצורי דרך בצורה מצויינת, ככה שלמי שיש אנטי וירוס NOD32 או שיכול להשיג אותו שיעשה סריקה איתו והוא ימחוק לו את כל הקיצורי דרך האלה.
לפי מה שידוע לי ישנה אפשרות סריקה של האנטי וירוס הזה דרך האינטרנט והיא סריקה חינמית, רק שלא הבנתי איך משתמשים בה אבל מי שמעוניין שינסה גם את האפשרות הזאת.
 

יוסתי

משתמש מקצוען
עיצוב גרפי
מישהו מכיר תוכנת אנטיוירוס חינמית ופשוטה לדיסק און קי
 

אולי מעניין אותך גם...

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק קיט ב'

ט בַּמֶּה יְזַכֶּה נַּעַר אֶת אָרְחוֹ לִשְׁמֹר כִּדְבָרֶךָ:י בְּכָל לִבִּי דְרַשְׁתִּיךָ אַל תַּשְׁגֵּנִי מִמִּצְוֹתֶיךָ:יא בְּלִבִּי צָפַנְתִּי אִמְרָתֶךָ לְמַעַן לֹא אֶחֱטָא לָךְ:יב בָּרוּךְ אַתָּה יְהוָה לַמְּדֵנִי חֻקֶּיךָ:יג בִּשְׂפָתַי סִפַּרְתִּי כֹּל מִשְׁפְּטֵי פִיךָ:יד בְּדֶרֶךְ עֵדְוֹתֶיךָ שַׂשְׂתִּי כְּעַל כָּל הוֹן:טו בְּפִקֻּדֶיךָ אָשִׂיחָה וְאַבִּיטָה אֹרְחֹתֶיךָ:טז בְּחֻקֹּתֶיךָ אֶשְׁתַּעֲשָׁע לֹא אֶשְׁכַּח דְּבָרֶךָ:
נקרא  5  פעמים

לוח מודעות

למעלה