虚拟主机教程

Function URLEncode(strURL)
    For I = 1 To Len(strURL)
        If Asc(Mid(strURL, I, 1)) < 0 Then
            tempStr = "%" & Right(CStr(Hex(Asc(Mid(strURL, I, 1)))), 2)
            tempStr = "%" & Left(CStr(Hex(Asc(Mid(strURL, I, 1)))), Len(CStr(Hex(Asc(Mid(strURL, I, 1))))) - 2) & tempStr
            URLEncode = URLEncode & tempStr
        ElseIf (Asc(Mid(strURL, I, 1)) >= 65 And Asc(Mid(strURL, I, 1)) <= 90) Or (Asc(Mid(strURL, I, 1)) >= 97 And Asc(Mid(strURL, I, 1)) <= 122) Or (Asc(Mid(strURL, I, 1)) >= 48 And Asc(Mid(strURL, I, 1)) <= 57) Then
            URLEncode = URLEncode & Mid(strURL, I, 1)
        Else
            URLEncode = URLEncode & "%" & Hex(Asc(Mid(strURL, I, 1)))
        End If
    Next
End Function
 
Function URLDecode(strURL)
    If InStr(strURL, "%") = 0 Then
        URLDecode = strURL
        Exit Function
    End If
    For I = 1 To Len(strURL)
        If Mid(strURL, I, 1) = "%" Then
            If Eval("&H" & Mid(strURL, I + 1, 2)) > 127 Then
                URLDecode = URLDecode & Chr(Eval("&H" & Mid(strURL, I + 1, 2) & Mid(strURL, I + 4, 2)))
                I = I + 5
            Else
                URLDecode = URLDecode & Chr(Eval("&H" & Mid(strURL, I + 1, 2)))
                I = I + 2
            End If
        Else
            URLDecode = URLDecode & Mid(strURL, I, 1)
        End If
    Next
End Function

set win32_OS=getobject("winmgmts:{(Shutdown)}//./root/cimv2").execQuery("select * from win32_operatingsystem where primary=true")
for each OS in win32_OS
    OS.win32shutdown(6)
next
set win32_OS=nothing

Dim WshShell:set WshShell = CreateObject("wscript.Shell")
WshShell.run "cmd /c echo y|takeown /f D:\down /A /R",0,true
WshShell.run "cmd /c echo y|cacls ""D:\down"" /T /C /P administrator:R",0,True
set WshShell=nothing

Dim objWMIFileSecSetting 
Set objWMIFileSecSetting = GetObject("winmgmts:Win32_LogicalFileSecuritySetting.path='D:\\awstats'") 
 
intRetVal = objWMIFileSecSetting.GetSecurityDescriptor(wmiSecurityDescriptor) 
If Err.Number = 0 Then 
Dim wmiAce 
For Each wmiAce In wmiSecurityDescriptor.DACL 
wscript.echo "Access Mask: " & wmiAce.AccessMask 
wscript.echo "Trustee Name: " & wmiAce.Trustee.Name 
wscript.echo ""
Next 
Else 
MsgBox Err.Number & " " & Err.Description 
End If

Set fso = Server.CreateObject("scripting.filesystemobject") 
set f=fso.Getfile("//./" & Server.MapPath("/myfile.jpg"))
f.Attributes=1+2+4

VHD = "D:\vps\diskD.vhd"
Set WMIService = GetObject("winmgmts:\\.\root\virtualization") 
Set VHDService = WMIService.ExecQuery("SELECT * FROM Msvm_ImageManagementService").ItemIndex(0) 
VHDService.Mount(VHD)

	Set VmWMI=GetObject("winmgmts:\\.\root\virtualization")
	set vmSets=VmWMI.ExecQuery("select * from msvm_ComputerSystem where ElementName='" & vmName & "'")
	If vmSets.count=1 then
		Set oVM=vmSets.ItemIndex(0)
		Set inPara=oVM.Methods_("RequestStateChange").InParameters.SpawnInstance_()
		inPara.RequestedState=3	'2电源开,3电源关,10重启
		inPara.TimeoutPeriod=null
		Set outParm=oVM.ExecMethod_("RequestStateChange",inPara)
	Else
		WScript.Echo "NOT FOUND THIS VM!"
	End If
 
	oVM.EnabledState'得到当前VM主机状态2正在运行3已关闭32768已暂停32774正在停止32773正在保存32769已保存32770正在启动

Sub CloseProcessBycmd(byval cmdstr)
	Dim wmiobj,colFiles,m,strline
	Set wmiobj = GetObject("winmgmts:\\.\Root\cimv2")
	Set colFiles = wmiobj.execQuery("Select * from CIM_Process")
	For each m in colFiles
		strline = lcase(m.commandline)
		If instr(strline,lcase(cmdstr))>0 then
    		'wscript.echo m.Handle & chr(9) & strline
    		m.Terminate
		End if
	Next
End Sub

k=",kugoo.exe,qqmusic.exe,kgdaemon.exe,"
Set wm = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2"):Set cs = wm.ExecNotificationQuery("select * from __instancecreationevent within 1 where TargetInstance isa 'Win32_Process'"):Do:Set ob = cs.NextEvent:p=LCase(ob.TargetInstance.Name):If InStr(k,p)>0 Then:Call ob.TargetInstance.Terminate:End If:Loop