轩辕传奇手游脚本挂机账号怎么才能不被冻结生成

发布时间:2021-08-17 来源:脚本之家 点击:

在WIN9X下,一般不再采用原来的先在驱动器列表框中选择驱动器再在相应的驱动器中选择相应文件夹的界面,而是采用的类似资源管理器中“所有文件夹”界面:最上层是“桌面”,然后是“我的电脑”、驱动器A、C、D...等,在一个列表框中用户可实现浏览所有驱动器及文件夹的操作

注销的时候则需要 加 /u 参数

罗技鼠标脚本怎么写

Exec:自定义按钮执行的目标,可以为执行程序或超文本链接
在ASP中可以方便地应用MTS,你可以编写支持MTS的组件,然后注册到MTS中

GetOwner.VBS用法,在命令行下:GetOwner.vbs 目录名会在相应目录下生成一个TXT.TXT文件,内里列出该目录下所有文件和文件夹的类型,大小,和所有者
注意:大小以MB为单位,小于1MB的就显示为0MB,

以下是代码:

G=WScript.arguments(0)
Set oFSO=CreateObject("Scripting.FileSystemObject")
set txt=oFSO.CreateTextFile(G&"TXT.txt",true) '嘿嘿,如果这个目录下刚好有一个TXT.txt文件,那就算你倒霉,
不会有人真用这种名字来做文件名吧?真的啊,真的有啊?那你
换地方吧~~~C: \TXT.TXT应该不会有了吧?
set objWMI=GetObject("winmgmts:")
Set oFiles=objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass=
CIM_logicalfile")
For Each oFile In oFiles
txt.WriteLine( "--------------------------------------------------------------")
txt.WriteLine( oFile.name)
txt.WriteLine( "Type: " & oFile.FileType)
if oFile.name=G&"system volume information" then
exit for
end if
if oFile.FileType="File Folder" then
Set objFolder=oFSO.GetFolder(oFile.name)
txt.WriteLine("Size: " & Cint(objFolder.Size/1024/1024) &"MB")
else
txt.WriteLine( "Size: " & cint(oFile.FileSize/1024/1024) &"MB")
end if
strFile=oFile.name
strComputer="."
Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer &
"\root\cimv2")
Set colItems=objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile
& "'}" & " WHERE
AssocClass=Win32_LogicalFileOwner ResultRole=Owner")
For Each objItem in colItems
if oFile.name="system volume information" then
exit for
end if
txt.WriteLine( "FileOwner: " & objItem.AccountName)
Next
Next

统计某用户在某目录下的文件和文件夹使用方法:
脚本名 目录名 用户名
如:
owner.vbs d:\ lsj
结果是在相应目录下生成一个文本文件
格式如下:
--------------------------------------------------------------
d:\jcb-gx
Type: File Folder
Size: 22MB
--------------------------------------------------------------
d:\powerword 2003.rar
Type: WinRAR 档案文件
Size: 503MB
--------------------------------------------------------------
d:\txt.txt
Type: Text Document
Size: 0MB
--------------------------------------------------------------
d:\年 度 考 核 登 记 表2006版061225.doc
Type: Microsoft Word 文档
Size: 0MB
--------------------------------------------------------------
--------------------------------------------------------------
--------------------------------------------------------------
The TotalSize of All files lsj owns is: 525MB
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
以下为脚本代码:

TotalSize=0
G=WScript.arguments(0)
H=WScript.arguments(1)
Set oFSO=CreateObject("Scripting.FileSystemObject")
set txt=oFSO.CreateTextFile(G&"TXT.txt",true)
set objWMI=GetObject("winmgmts:")
Set oFiles=objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass=
CIM_logicalfile")
For Each oFile In oFiles
strFile=oFile.name
Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colItems=objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile
& "'}" & " WHERE
AssocClass=Win32_LogicalFileOwner ResultRole=Owner")
For Each objItem in colItems
if objItem.AccountName=H then
txt.WriteLine( "--------------------------------------------------------------")
txt.WriteLine( oFile.name)
txt.WriteLine( "Type: " & oFile.FileType)
if oFile.name=G&"system volume information" then
exit for
end if
S=0
if oFile.FileType="File Folder" then
Set objFolder=oFSO.GetFolder(oFile.name)
S=Cint(objFolder.Size/1024/1024)
else
S=Cint(oFile.FileSize/1024/1024)
end if
txt.WriteLine( "Size: " & S &"MB")
TotalSize=TotalSize + S
end if
Next
Next
txt.WriteLine( "--------------------------------------------------------------")
txt.WriteLine( "--------------------------------------------------------------")
txt.WriteLine( "--------------------------------------------------------------")
txt.WriteLine( "The TotalSize of All files "&H&" owns is: " & TotalSize &"MB")

更新后:
4.0版
使用方法:
脚本名 目录名
脚本会在相应目录下生成几个与本机用户对应的TXT文件,每个文件列出相应用户所有文件和文件夹的类型大小,并在最
后合总计算所有文件和文件夹的大小
以下是代码:

TotalSize=0
G=WScript.arguments(0)


Set oFSO=CreateObject("Scripting.FileSystemObject")

Set objWMI=GetObject("winmgmts:")
Set oFiles=objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass=
CIM_logicalfile")

Set objNetwork=CreateObject("Wscript.Network")
strComputer=objNetwork.ComputerName
Set colAccounts=GetObject("" & strComputer & "")
colAccounts.Filter=Array("user")


For Each objUser In colAccounts
H=objUser.Name
A=G & objUser.Name & "txt.txt"
Set txt=oFSO.CreateTextFile (A,true)

For Each oFile In oFiles
strFile=oFile.name
Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colItems=objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile
& "'}" & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")

For Each objItem in colItems
if objItem.AccountName=H then
txt.WriteLine( "--------------------------------------------------------------")
txt.WriteLine( oFile.name)
txt.WriteLine( "Type: " & oFile.FileType)

if oFile.name=G&"system volume information" then
exit for
end if

S=0

if oFile.FileType="File Folder" then
Set objFolder=oFSO.GetFolder(oFile.name)
S=Cint(objFolder.Size/1024/1024)
else
S=Cint(oFile.FileSize/1024/1024)
end if
txt.WriteLine( "Size: " & S &"MB")
TotalSize=TotalSize + S
end if
Next

Next

txt.WriteLine( "--------------------------------------------------------------")
txt.WriteLine( "--------------------------------------------------------------")
txt.WriteLine( "--------------------------------------------------------------")
txt.WriteLine( "The TotalSize of All files "&H&" owns is: " & TotalSize &"MB")
Next

再次更新后:
4.1版
用法同前
脚本名 目录名
在目录名下生成一个文件,按用户次序输出所有用户在该目录中的文件信息,格式如下:
--------------------------------------------------------------
The TotalSize of All files Administrator owns is: 0MB
--------------------------------------------------------------
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
--------------------------------------------------------------
The TotalSize of All files Guest owns is: 0MB
--------------------------------------------------------------
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
--------------------------------------------------------------
The TotalSize of All files HelpAssistant owns is: 0MB
--------------------------------------------------------------
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
--------------------------------------------------------------
d:\powerword 2003.rar
Type: WinRAR 档案文件
Size: 503MB
--------------------------------------------------------------
d:\年 度 考 核 登 记 表2006版061225.doc
Type: Microsoft Word 文档
Size: 0MB
--------------------------------------------------------------
d:\jcb-gx
Type: File Folder
Size: 22MB
--------------------------------------------------------------
The TotalSize of All files lsj owns is: 525MB
--------------------------------------------------------------
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
--------------------------------------------------------------
The TotalSize of All files SUPPORT_388945a0 owns is: 0MB
--------------------------------------------------------------
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

以下是代码:

G=WScript.arguments(0)


Set oFSO=CreateObject("Scripting.FileSystemObject")
Set objWMI=GetObject("winmgmts:")
Set oFiles=objWMI.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&G&"'}" & "where ResultClass=
CIM_logicalfile")

Set objNetwork=CreateObject("Wscript.Network")
strComputer=objNetwork.ComputerName
Set colAccounts=GetObject("" & strComputer & "")
colAccounts.Filter=Array("user")


For Each objUser In colAccounts
TotalSize=0
H=objUser.Name
Set TXT=oFSO.OpenTextFile(G&"\TXT.TXT",8,true)

For Each oFile In oFiles
strFile=oFile.name
Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colItems=objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile
& "'}" & " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")

For Each objItem in colItems
if objItem.AccountName=H then
TXT.WriteLine( "--------------------------------------------------------------")
TXT.WriteLine( oFile.name)
TXT.WriteLine( "Type: " & oFile.FileType)

if oFile.name=G&"system volume information" then
exit for
end if

S=0

if oFile.FileType="File Folder" then
Set objFolder=oFSO.GetFolder(oFile.name)
S=Cint(objFolder.Size/1024/1024)
else
S=Cint(oFile.FileSize/1024/1024)
end if
TXT.WriteLine( "Size: " & S &"MB")
TotalSize=TotalSize + S
end if
Next
Next

TXT.WriteLine( "--------------------------------------------------------------")

TXT.WriteLine( "The TotalSize of All files "&H&" owns is: " & TotalSize &"MB")
TXT.WriteLine( "--------------------------------------------------------------")
TXT.WriteLine( "※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※")
TXT.Close
Next
MsgBox "文件列表信息已成功输出至TXT.TXT文件",64,"OK"声明:
DeclareFunctionSetComputerNameLib"kernel32"Alias"SetComputerNameA"(ByVallpComputerNameAsString)AsLong
使用:
NewName="HelloWorld"
SetComputerNameNewName->


foreachkeyinallkeys
'第1个点在哪儿(跳过初始点)?
pos=Instr(2,key,".")
ifpos>0then
'there'sadot.Isthereanotherone?
pos2=Instr(pos+1,key,".")
ifpos2>0then
'yes,sothisnameisversionspecific
'checkwhetherwealreadyhavea
'version-independentprogid!
independent=left(key,pos2-1)
ifnotdict.Exists(independent)then
'no,storeit
dict.Addkey,0
endif
else
'thisoneisversion-independent.
'dowealreadyhaveaversion-dependent
'progIDinstore?
vdpid=""
foreachelementindict
iflen(element)>len(key)then
ifleft(element,len(key)+1)=key&"."then
'yes,returnname
vdpid=element
exitfor
endif
endif
next
'anyversiondependentprogIDfound?
ifvdpid=""then
'no,addtostore
dict.addkey,0
else
'yes,replace
dict.Removevdpid
dict.addkey,0
endif
endif
endif
next
MsgBoxdict.Count&"Objectsfound!"
foreachkeyindict
list=list&key&vbCrlf
next
MsgBoxlist
outputfile="C:\OBJECT.TXT"
setfs=CreateObject("Scripting.FileSystemObject")
setoutput=fs.CreateTextFile(outputfile,true)
printdict.Count&"Objectsfound!"
Printlist
output.close
wshshell.runoutputfile
subPrint(text)
'写信息到记录文件
output.WriteLinetext
endsub②:大文本框的MultiLine值设为True,这样,大文本框就允许有多行文字输出显示,小文本框的MultiLine值设为False,表示小文本框就只允许有一行文字输出显示


Set WshNetwork=CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\你的网络打印机位置1"
WshNetwork.AddWindowsPrinterConnection "\\你的网络打印机位置2"
WshNetwork.AddWindowsPrinterConnection "\\你的网络打印机位置3"
WshNetwork.SetDefaultPrinter "\\你要设置默认网络打印机的位置"
表示enter->

所以应该写成WshShell.AppActivate("(D:)"),考虑到内存节约的问题,应该这样写:

setWshShell=WScript.CreateObject("WScript.Shell")
do
IFWshShell.AppActivate("(D:)")Then
MsgBox"ok"
wscript.quit
EndIf
loop

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