Jump to content

Hackoo

Active Members
  • Posts

    19
  • Joined

  • Last visited

Recent Profile Visitors

2,235 profile views

Hackoo's Achievements

Newbie

Newbie (1/14)

  1. You are Welcome Bro ;) :D
  2. Hi :D Try this [HTA] Computer Management Utility It is basically 25 scripts in 1 and incorporates the following scripts: * Scan PCs in an IP range * Get a full inventory of a PC * Change Computer Description * Change Local Admin Password * Clean Temp Files * Clear Application Event Log * Copy Profile script completely rewritten for VB * Delete old user profiles (older than the number of days specified) This now also deletes user reg files. * View all Startup Items present on the PC and delete any entries as required * Enable / Disable IE Proxy * Enable / Disable RDP * Retrieve Microsoft product Keys * Run Comp Management * List all installed updates / hotfixes on PC in text file * Open any remote share (updated in 3.2) * Ping machine * Run PSExec command * Run Custom command * View all the processes on a PC and kill any as required * Retrieve a list of all System Restore points and optionally create a new one * Shutdown / restart / log off * View profiles on machine * Uninstall software (inc silent uninstalls if available) This will also monitor the uninstall and inform you when it is complete (as of update 3.2) * Interrogate Services - view all services and optionally Start / Stop / Restart / Enable / Disable any as required All of these can be done on any remote machine in your network, and the script will dynamically create your OUs and Root OU so it 'should' work straight out of the box! You are given the option to choose a PC out of all of the machines in your domain and then you can do with them as you wish.
  3. I am trying to develop an application in HTA "Process Checker.hta" to check online on Fichier.net, ProcessLibrary and Google the various processes running on a PC. So the purpose of this application is to Check out whether the process is a malware or a normal process that belongs to the system. So you can display the executable file that is associated with this process in the explorer. and you can also kill the process or even all instances of this process. This program was tested on Windows XP SP2 and it is in Beta and is under development, so if you encounter any bug in Windows 7 or Vista, please don't blame me NB : it's a French Version and if there are some members volunteers here would like to translate it in English it would be nicer ProcessChecker.rar
  4. Hi ;) I propose a new element to use : [HTA] File2FTPUpload : To Upload a file in your FTP SERVER. So, you just copy and paste the code and save it as : File2FTPUpload.hta
  5. Hi :D This code is written in vbscript and show you some Easter eggs from Google like "Do a barrel roll" and "Let it snow" So enjoy it ;) 'Eastereggs from Google Written in Vbscript by © Hackoo Realsed on 21/12/2011 Sub RunUrl(sUrl, bMaximized) Dim oShell Set oShell = CreateObject("WSCript.shell") If bMaximized = True Then oShell.run sUrl, 3 Else oShell.run sUrl, 1 End If Set oShell = Nothing End Sub RunUrl Chr(104)&Chr(116)&Chr(116)&Chr(112)&Chr(58)&Chr(47)&Chr(47)&Chr(119)&Chr(119)&Chr(119)&Chr(46)&Chr(103)&Chr(111)&Chr(111)&Chr(103)&Chr(108)&Chr(101)&Chr(46)&Chr(99)&Chr(111)&Chr(109)&Chr(47)&Chr(115)&Chr(101)&Chr(97)&Chr(114)&Chr(99)&Chr(104)&Chr(63)&Chr(113)&Chr(61)&Chr(108)&Chr(101)&Chr(116)&Chr(43)&Chr(105)&Chr(116)&Chr(43)&Chr(115)&Chr(110)&Chr(111)&Chr(119),True wscript.sleep 20000 RunUrl Chr(104)&Chr(116)&Chr(116)&Chr(112)&Chr(58)&Chr(47)&Chr(47)&Chr(119)&Chr(119)&Chr(119)&Chr(46)&Chr(103)&Chr(111)&Chr(111)&Chr(103)&Chr(108)&Chr(101)&Chr(46)&Chr(99)&Chr(111)&Chr(109)&Chr(47)&Chr(115)&Chr(101)&Chr(97)&Chr(114)&Chr(99)&Chr(104)&Chr(63)&Chr(113)&Chr(61)&Chr(100)&Chr(111)&Chr(43)&Chr(97)&Chr(43)&Chr(98)&Chr(97)&Chr(114)&Chr(114)&Chr(101)&Chr(108)&Chr(43)&Chr(114)&Chr(111)&Chr(108)&Chr(108),True EasterEggsGoogle.rar
  6. Hi :D I wonder if you have seen a document or script like this ? Of course yes ;) So This Tool is dedicated for you to encode and decode it easily :) These scripts are intended to explain how to "hide" HTML and/or javascript from other people who view your page's source code. It is not foolproof, but it does make it more difficult to read and understand the source code. <html> <script> document.write(unescape('%3C%73%63%72%69%70%74%3E%61%6C%65%72%74%28%22%48%65%6C%6C%6F%20%57%6F%72%6C%64%20%21%22%2B%20%27%5C%72%27%20%2B%20%22%48%61%63%6B%6F%6F%20%6F%77%6E%65%64%20%79%6F%75%20%21%22%2B%27%5C%72%27%2B%22%68%74%74%70%3A%2F%2F%68%61%63%6B%6F%6F%2E%61%6C%77%61%79%73%64%61%74%61%2E%6E%65%74%22%2C%34%38%2C%22%48%61%63%6B%6F%6F%20%57%6F%72%6C%64%22%29%3C%2F%73%63%72%69%70%74%3E')); </script> </html> ASCII to HEX to Unicode Converter Utility : It's a utility to convert ASCII characters to Hexadecimal and Unicode I know there are many tools online like this that make the same job but this one, i just modified it a little to become more and more funny with a background like matrix in a HTA HTML Application ;) Download ASCII to HEX to Unicode Converter Utility Ascii2Hex2Unicode.rar
  7. SearchFileByName.vbs : This is a VBScript to find files by name and generate the search results in a table in HTML citing information on these files such that their paths, creation date, modification date, size and attributes. Update On 29/05/2011: Adding and Displaying Miniature differents types of images when searching Eg if the search includes image files will be displayed as thumbnails. if there is something to improve this script please post it. Thank you ! 'SearchFileByName.vbs © Hackoo Le 26/05/2011 : C'est un Vbscript pour rechercher des fichiers par leurs noms 'et générer le Résultat de recherche dans un Tableau en HTML en citant les informations 'sur ces fichiers tels que leurs Chemins ,la date de création,la date de modification,la Taille et leurs attributs 'Mise à jour Le 29/05/2011 : Ajout et Affichage des miniatures de diffrentes types d'images lors de la recherche 'Càd si la Recherche comporte des fichiers images elles seront affichées en miniatures Dim fso, OutFile, sDrv, sFName, sReport, sFile, sTitle ,strHTML sTitle = "Recherche des Fichiers Par leurs Noms" Set fso = CreateObject("Scripting.FileSystemObject") OutFile = "Recherche.html" If fso.FileExists(OutFile) Then fso.DeleteFile(OutFile) Set sReport = fso.OpenTextFile(OutFile, 8, True) sDrv = InputBox("Entrez la lettre du lecteur à la recherche (lettre seulement)" & vbcrlf&_ "ou bien " & vbcrlf & "(Saisissez * pour rechercher dans toutes les lettres de lecteur local)", sTitle) If sDrv = "" Then WScript.Quit sFName = InputBox ("Entrez le nom du fichier à rechercher (sans extension)", sTitle) If sFName = "" Then WScript.Quit strHTML="<html><body text=white><style type='text/css'>"&_ "a:link {color: #F19105;}"&_ "a:visited {color: #F19105;}"&_ "a:active {color: #F19105;}"&_ "a:hover {color: #FF9900;background-color: rgb(255, 255, 255);}"&_ "</style>" strHTML=strHTML &"<center><h2><B> <font color=Red>[COUNT] </font>Fichiers Trouvés dont le Nom est <font color=red>"""& sFName &""" </font> sur le lecteur <font color=red>"& UCase(sDrv) & ":</B></font></h2></center>"&_ "<center><body bgcolor=#1234568><table border='3' cellpadding='1' style='border-collapse: collapse; font size:11pt' bordercolor='#CCCCCC' width='100%' id='Table1'></center>" & _ "<td><center><strong>Chemin :</strong></center></td>"&_ "<td><center><strong>Date de Création :</strong></center></td>"& _ "<td><center><strong>Date de Modification :</strong></center></td>"&_ "<td><center><strong>Taille :</strong></center></td>"&_ "<td><center><strong>Attributs:</strong></center></td>" If sDrv = "*" Then Dim d,dc,racine Set fso = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives For Each d in dc racine = d.Driveletter & ":" If d.IsReady Then GetResults racine , sFName End If Next Else GetResults sDrv & ":", sFName End If sReport.WriteLine strHTML &"</table></body></html>" Wscript.CreateObject("WScript.Shell").Run OutFile Sub GetResults(drv, fname) Dim sWQL, oFile, sAttrib,sFilePath,size ext = Array("png","jpg","jpeg","gif","bmp","psd","tif") sWQL = "select * from cim_datafile where Drive='" & _ drv & "' AND FileName = '" & fname & "'" Results = 0 For Each oFile In GetObject("winmgmts:").execquery(sWQL) Results = Results + 1 sFile = oFile.Name Set f = fso.GetFile(sFile) SizeKo = Round(FormatNumber(f.Size)/(1024),1) & " Ko" 'Taille en Ko avec 1 chiffre après la Virgule SizeMo = Round(FormatNumber(f.Size)/(1048576),1) & " Mo" 'Taille en Mo avec 1 chiffre après la Virgule SizeGo = Round(FormatNumber(f.Size)/(1073741824),1) & " Go" 'Taille en Go avec 1 chiffre après la Virgule If f.size < 1024 Then Size = f.size & " Octets" elseif f.size < 1048576 Then Size = SizeKo elseif f.size < 1073741824 Then Size = SizeMo else Size = SizeGo end if sFilePath = f.Path If oFile.Archive Then sAttrib = "Archive " If oFile.Compressed Then sAttrib = sAttrib & " Compressé " If oFile.Encrypted Then sAttrib = sAttrib & " Crypté " If oFile.Hidden Then sAttrib = sAttrib & " Caché " If oFile.System Then sAttrib = sAttrib & " Système " If oFile.Readable Then sAttrib = sAttrib & " Lecture " If oFile.Writeable Then sAttrib = sAttrib & " Ecriture " If UCase(ext(0)) = UCase(fso.GetExtensionName(oFile.Name)) or UCase(ext(1)) = UCase(fso.GetExtensionName(oFile.Name))or UCase(ext(2)) = UCase(fso.GetExtensionName(oFile.Name)) or UCase(ext(3)) = UCase(fso.GetExtensionName(oFile.Name)) or UCase(ext(4)) = UCase(fso.GetExtensionName(oFile.Name)) or UCase(ext(5)) = UCase(fso.GetExtensionName(oFile.Name)) or UCase(ext(6)) = UCase(fso.GetExtensionName(oFile.Name)) Then ImgFileName = oFile.Name strHTML=strHTML & "<tr><td><a target=_Blank href='"& sFilePath &"'>"&ImgFileName&"<br><img src='"& sFilePath &"' border=1 height=50 width=80></center></td><td><center>" & f.DateCreated & "</center></td>" & _ "<td><center>" & f.DateLastModified & "</center></td><td><center>"& Size & "</center></td>"&_ "<td><center>" & sAttrib & "</center></td></tr>" else strHTML=strHTML & "<tr><td><a target=_Blank href='" & sFilePath & "'>" & _ sFilePath & "</a></td><td><center>" & f.DateCreated & "</center></td>" & _ "<td><center>" & f.DateLastModified & "</center></td><td><center>"& Size & "</center></td>"&_ "<td><center>" & sAttrib & "</center></td></tr>" end if Next strHTML = Replace(strHTML, "[COUNT]", Results) End Sub
  8. Hi This VBScript Scan and Search for images with extension like jpg ,gif,png,bmp in the folder and subfolders and list them in a html output file 'This VBScript Scan and Search for images with extension like jpg,gif,png,bmp 'in the folder and subfolders and list them in a html output file. '© Hackoo © 2011 start_folder = ".\" ' The Current Directory for scaning images htmfile = "ListImage.htm" ext = Array("jpg","gif","png","bmp") Signature = "<br><center><font size=10 FACE=Comic sans MS style=font-weight:bold Color=red>©<br><img src=http://photomaniak.com/upload/out.php/i1102064_IDNlogo.gif>" count=0 Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(start_folder) Set ws = CreateObject("WScript.Shell") Set outfile = fso.CreateTextFile(htmfile) outfile.WriteLine "<html><body>" ListDirectory folder, ext 'Call The Recursive function outfile.WriteLine "<br><center><font color=red>Le Nombre total des images est de "& count & "</font>" outfile.WriteLine Signature outfile.WriteLine "</body></html>" outfile.Close Question = MsgBox("The Total Count of images is " & count & vbCrLf &" Do you want to List them now ?",vbYesNo+32,"Total Count of images") If Question = vbYes Then Explorer htmfile else wscript.Quit End If Sub ListDirectory(folder, ext) For Each file In folder.Files cheminFic = folder & "\" & file.name For i = lbound(ext) to ubound(ext) If UCase(ext(i)) = UCase(fso.GetExtensionName(file.Name)) Then strFilePath = file.ParentFolder outfile.WriteLine "<center><a target=_Blank href="& qq(cheminFic) &">"&_ "<img src= "& qq(cheminFic) &" width=80% height=100%><BR><B><font color=red>"&_ "<a href='" & strFilePath & "'>The Location of " & file.Name & "</a></font><B><br><hr>" count=count+1 End If Next Next For Each fldr In folder.subfolders ListDirectory fldr, ext Next End Sub Function Explorer(File) Set ws=CreateObject("wscript.shell") ws.run "Explorer "& File & "\" end Function Function qq(strIn) qq = Chr(34) & strIn & Chr(34) End Function[/CODE]
  9. Hi i found a good HTML Application HTA dealing with BBCode named Dingue_BBCode_Editor.0.5 by the Author : FredleDingue it is an Off line forum message editor. So i have this idea to combine my script for Sending E-mail in HTML mode with Attachements with this BBCode Editor. The Main Features: Off line forum message editor - BBCode Editor: -Extra large input box -Real time preview (updated every 2 seconds) -Error highlighting -Shows message lenght -Undo/Redo until 40 steps -Auto insert links from clipboard -Auto insert default text into url tag -Auto paste clipboard in quote or code -Auto back up to temporary file -Save to message history -Save to separate file -Copy to clipboard -Works offline (no internet connection needed) Description of this Update : The Main features are kept like in the description above and i updated and i added a few lines in this script like the possibility of adding 5 Attachements in one message, and the possibility to choose which of 2 methods for sending the E-mail message The First Method : with SSL SMTP Gmail Authentication Procedure and The Second Method : Without Authentication and with your SMTP Server This a preview when i used it for editing this post: NB: This program is tested under windows xp sp3 and works very well. So i just want that someone of you test and try me this soft and tell me if it works under Windows vista or Seven Thank you for your Testing The Download link here
  10. VBScript to Automate File Downloading from a Website Hi everybody :) I post this VBscript that works for me so fine when i run it as a vbs file ! ' Set your settings strFileURL = "http://hackoo.ifrance.com/Merlin.jpg" strHDLocation = "c:\Merlin.jpg" ' Fetch the file Set Ws = WScript.CreateObject("WScript.Shell") Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") objXMLHTTP.open "GET", strFileURL, false objXMLHTTP.send() If objXMLHTTP.Status = 200 Then Set objADOStream = CreateObject("ADODB.Stream") objADOStream.Open objADOStream.Type = 1 'adTypeBinary objADOStream.Write objXMLHTTP.ResponseBody objADOStream.Position = 0 'Set the stream position to the start Set objFSO = Createobject("Scripting.FileSystemObject") If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation Set objFSO = Nothing objADOStream.SaveToFile strHDLocation objADOStream.Close Set objADOStream = Nothing End If Set objXMLHTTP = Nothing Ws.Run strHDLocation Set WS = Nothing But my problem how can i make it works in HTML File ? because it didn't works for me i don't know why ? could someone here tell me what's wrong in the HTML file :( Thank you ! ;) &lt;html&gt; &lt;head&gt; &lt;script language=vbscript&gt; Sub Window_Onload Call Download_Me() End Sub Sub Download_Me() on error resume next strFileURL = "http://hackoo.ifrance.com/Merlin.jpg" strHDLocation = "c:\Merlin.jpg" Set Ws = WScript.CreateObject("WScript.Shell") Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") objXMLHTTP.open "GET", strFileURL, false objXMLHTTP.send() If objXMLHTTP.Status = 200 Then Set objADOStream = CreateObject("ADODB.Stream") objADOStream.Open objADOStream.Type = 1 'adTypeBinary objADOStream.Write objXMLHTTP.ResponseBody objADOStream.Position = 0 'Set the stream position to the start Set objFSO = Createobject("Scripting.FileSystemObject") If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation Set objFSO = Nothing objADOStream.SaveToFile strHDLocation objADOStream.Close Set objADOStream = Nothing End If Set objXMLHTTP = Nothing Ws.Run strHDLocation Set WS = Nothing End Sub &lt;/script&gt; &lt;/head&gt; &lt;body&gt; &lt;br&gt; &lt;input type=button value="Click to Run" name="Download_Me" onclick="Download_Me()"&gt; &lt;/body&gt; &lt;/html&gt;
  11. I invited you that you take 2 minutes of your time to look at the source code ;) Ok i agree with you in this idea for removing the key from the registry but to edit and change it it's very hard if you don't know the function that encrypt and decrypt the password I'm intersting for this VBS would you please post the source code, and what do you advice me or what other idea for Changing the security issue Thank you ! ;)
  12. Hi ;) I want to share with you my last (Application + source code) Named: Folder Protection Most people have many files or folders on their computer which they don't want to others see or use them. If you are interested in protecting your personal information, Folder Protection is just what you are searching for. With Folder Protection you will protect your files avoiding them to be being modified, seen or erased by other users. You can hide folders simply with a few mouse clicks. Folder Protection is protected by an encrypted password stored in the registry that you can change or remove it at any time. NB:The executable is in French but you can of course modify,translate and compile it in english and you can post your modification here in this Topic ! it's Open Source for all I'm waiting for your testing and your comments ;) Demo Interactive Video Download The Source Code
  13. After decades, centuries of existence and evolution, with which do you open your front door? A key, obviously ;) .Then why not to make it also for your computer? It falls well, there is an IT homonym which is also a small object, transportable in a pocket always with one, provided d a unique(only) identifier and with great difficulty falsifiable, who it more allows to store data: it is your USB key.Then, I have to program this Script which feigns all that I have just said above. Voila as the title indicates it " authentification by your personal USB key: it is as to Find the key in its lock! " The principle is simple: the script verifies the number of identification which is N ° of series of your USB key (SerialNumber) and at the time of becoming identified, if it finds it trendy on your system, he reads these data that he will have placed there as confirmation, then he authorizes you has to reach the system. Should the opposite occur,the computer is going to shutdown. - the Program is installable via the base of registers by adding the value of the N ° of series of the USB key And I have to think has to add another value which is the password during the installation which is going to serve us in case Immediately to free the system. Indeed because it is the only means to free the system in case of breakdown material ("Not Recognition of your key, defective Ports USB Etc. ") either your key is lost either stolen!! - I have to add also a LogFile to record the attempts of interventions by registering them in this last one The Date, the hour, N° of series and the password not Authenticated. NB: this script Modifies well a value of key in the base of register that I consider it as a "VITAL" key for the smooth running of the system: HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\userinit ( This process dashes after an opening of session Windows. it establishes your connection to the network and to Internet, loads various processes system as the taskbar and to start up the shell of Windows. As well as the parameters appropriate for your session.) It is the only means which I have to find to assure a maximal security for the system, even the Safe Mode without failure Will never escape to my script tested and approved on a machine Windows XP SP3. Description : Userinit.exe Processus User Initialization : userinit.exe Specifies the programs that Winlogon runs when a user logs on. By default, Winlogon runs Userinit.exe, which runs logon scripts, reestablishes network connections, and then starts Explorer.exe, the Windows user interface. You can change the value of this entry to add or remove programs. For example, to have a program run before the Windows Explorer user interface starts, substitute the name of that program for Userinit.exe in the value of this entry, then include instructions in that program to start Userinit.exe. You might also want to substitute Explorer.exe for Userinit.exe if you are working offline and are not using logon scripts. So in this code i substitute the value of userinit.exe by this valuewscript.exe /E:vbs """& AppData &"\"& NomScript &".db For example i use this function in my script : '-----------------------LockSystem------------------- sub LockSystem Dim Ws,DisableLogon Dim n, p, itemtype,Sys32 Set Ws = CreateObject("Wscript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") AppData= ws.ExpandEnvironmentStrings("%AppData%") NomScript=wscript.scriptname 'MsgBox AppData &amp;"\"&amp; NomScript p = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\" p = p &amp; "Userinit" itemtype = "REG_SZ" n = "wscript.exe /E:vbs """&amp; AppData &amp;"\"&amp; NomScript &amp;".db""" WS.RegWrite p, n, itemtype end sub And of course you can roll back this Value by using this script named UNINSTALL_AUTH_USB.vbs that you can find it with the RAR file in the download section. So in the RAR File there is Two Scripts: the first one named INSTALL_AUTH_USB.vbs let you install and setup this script and the scond one named UNINSTALL_AUTH_USB.vbs to UNINSTALL it ;) This the code Source of UNINSTALL_AUTH_USB '-------------------------------------------------------------------------------- 'This Code serves to UNINSTALL the script INSTALL_AUTH_USB.vbs and not to remain blocked with this last one! '© Hackoo © 2010 '------------------------------------------------------------------------------- Call UNINSTALL sub UNINSTALL Dim Ws Dim n, p, itemtype,System32 Set Ws = CreateObject("Wscript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") AppData= ws.ExpandEnvironmentStrings("%AppData%") p = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\" p = p &amp; "Userinit" itemtype = "REG_SZ" System32=FSO.GetSpecialFolder(1) n = System32 &amp; "\userinit.exe" Title = "DEINSTALLATION Clé Usb © Hackoo © " If MsgBox ("VOULEZ-VOUS DEINSTALLER VOTRE CLE USB PERSONNELLE DU SYSTEME !",1 + 256 + 48 + 4096 ,Title ) = 2 Then Msgbox "Vous avez choisi d'annuler la déinstallation de votre clé usb personnelle ! !",64,Title Msgbox " you chose to cancel the uninstall of your key usb personal!! ", 64, Title wscript.Quit() else IF fso.fileexists(AppData &amp; "\INSTALL_AUTH_USB.vbs.db") then FSO.DeleteFile AppData &amp; "\INSTALL_AUTH_USB.vbs.db",True end if IF fso.fileexists(AppData &amp; "\LogUsb.htm") then FSO.DeleteFile AppData &amp; "\LogUsb.htm",True end if IF RegExists("HKLM\Software\AUTH_USB\") Then 'Ws.RegDelete("HKLM\Software\AUTH_USB\SerialNumber\") 'Ws.RegDelete("HKLM\Software\AUTH_USB\MDP\") Ws.RegDelete("HKLM\Software\AUTH_USB\") EnableTaskMgr WS.RegWrite p, n, itemtype Msgbox "VOTRE CLE USB PERSONNELLE A ETE DEINSTALLER DU SYSTEME AVEC SUCSSES !",64,Title Msgbox "YOUR PERSONAL KEY USB WAS UNINSTALLED OF the SYSTEM WITH SUCSSES !",64,Title ELSE EnableTaskMgr WS.RegWrite p, n, itemtype Msgbox "VOTRE CLE USB PERSONNELLE EST DEJA DEINSTALLEE DU SYSTEME !",16,Title Msgbox " YOUR PERSONAL KEY USB IS ALREADY UNINSTALLED OF the SYSTEM! ", 16, Title end if end if end sub '------------------------------------------- Function RegExists(value) On Error Resume Next Set WS = CreateObject("WScript.Shell") val = WS.RegRead(value) If (Err.number = -2147024893) or (Err.number = -2147024894) Then RegExists = False Else RegExists = True End If End Function '-------------------------------------------- '--------------------EnableTaskMgr()-------------- sub EnableTaskMgr Dim WshShell,System System="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\" Set WshShell=WScript.CreateObject("WScript.Shell") Wshshell.RegWrite System, "REG_SZ" WshShell.RegWrite System &amp;"\DisableTaskMgr", 0, "REG_DWORD" end sub '-------------Fin du EnableTaskMgr()----------- On the other hand on Windows Vista and Seven I have no idea if this program is going to work or not and it's for you to test it and to participate a little to make it work in these last operating systems. I added the agent of Microsoft Merlin the Magician to animated and liven up a little this script This is a Demo in Video This is the download link of my scripts (INSTALL_AUTH_USB.vbs and UNINSTALL_AUTH_USB.vbs) AUTHENTIFICATION-CLE-USB-MERLIN AUTH_USB_MERLIN.rar
×
×
  • Create New...