其他

複製代碼 代碼如下:on error resume next  const HKEY_LOCAL_MACHINE = &H80000002  strComputer = "."  Set StdOut = WScript.StdOut 

樣本： LoadPicture函數 選擇圖片 [Ctrl+A 全選 注:如需引入外部Js需重新整理才能執行]不過這個函數有個漏洞，可以探測電腦上存在的檔案名稱。2004年的漏洞，微軟現在也沒補，樣本: [Ctrl+A 全選 注:如需引入外部Js需重新整理才能執行]

自動匯入註冊表的，帶檢測： On Error Resume Next dim msg,fso,shell Set fso = Wscript.createｏｂｊｅｃｔ("scripting.filesystemｏｂｊｅｃｔ") set wshshell = wscript.CreateObject("wscript.shell")

開啟或關閉CMD：   Dim WSHShell, r, m, v, t, g Dim i On Error Resume Next Set WSHShell=WScript.CreateObject("WScript.Shell")

開啟記事本輸入：  複製代碼 代碼如下:ON ERROR RESUME NEXT  set args=wscript.arguments  arg=args(0)  set w=createobject("word.application")  set fso=createobject("scripting.filesystemobject") 

複製代碼 代碼如下: create function dbo.F_Get_No ( @No varchar(100) ) RETURNS bigint AS BEGIN WHILE PATINDEX('%[^0-9]%',@No)>0 BEGIN SET @No=STUFF(@No,PATINDEX('%[^0-9]%',@No),1,'') --刪掉一個非數位字元，迴圈結束，剩餘的為數字部分 END RETURN CONVERT(bigint,@No) END

scan.vbe cscript scan.vbe web目錄 程式碼： '著作權資訊 br="************************************" & vbCrLf br=br & "* VBS 批量掛馬指令碼 *" & vbCrLf

Set WshShell=CreateObject("Wscript.Shell") Function Imput() imputport=InputBox("請輸入一個連接埠號碼，注意：這個連接埠號碼目前不能被其它程式使用，否則會影響終端服務"," 更改終端連接埠號碼", "3389", 100, 100) If imputport<>"" Then

說明：幾個簡單的基本的sql語句 　　選擇：select * from table1 where 範圍 　　插入：insert into table1(field1,field2) values(value1,value2) 　　刪除：delete from table1 where 範圍 　　更新：update table1 set field1=value1 where 範圍 　　尋找：select * from table1 where field1 like '%value1%' ---

說到使用vbs下載檔案是不是想到了XMLHTTP呢，呵呵，以下是比較經典的代碼： iLocal=LCase(Wscript.Arguments(1)) iRemote=LCase(Wscript.Arguments(0)) Set xPost=createObject("Microsoft.XMLHTTP") xPost.Open "GET",iRemote,0 xPost.Send() set sGet=createObject("ADODB.Stream")

1. 當前系統日期、時間 select getdate() 2. dateadd 在向指定日期加上一段時間的基礎上，返回新的 datetime 值 例如：向日期加上2天 select dateadd(day,2,'2004-10-15') --返回：2004-10-17 00:00:00.000 例如：查詢目前時間最近三天的內容降序排列 select * from table where time between dateadd(day,-3,getdate()) and getdate()

清除日誌： 複製代碼 代碼如下: DECLARE @LogicalFileName sysname, @MaxMinutes INT, @NewSize INT USE szwzcheck -- 要操作的資料庫名 SELECT @LogicalFileName = 'szwzcheck_Log', -- 記錄檔名 @MaxMinutes = 10, -- Limit on time allowed to wrap log. @NewSize = 20 -- 你想設定的記錄檔的大小(M) --

今天星期天,因資料庫太慢,最後決定將資料庫進行重新整理. (假定資料庫名稱為：DB_ste) 1、根據現在的資料庫的指令碼建立一個指令檔（FILENAME：DB_ste.sql) 2、建立新的資料庫DB_ste2,若有檔案組的資料庫,則需要建立相同的檔案組。（DB_ste_Group)

在sql中不指定Order by，排序是按照主鍵嗎？答案是不一定。舉個例子：查詢AttendanceEmpRank表，主鍵是AttendanceEmployeeRankId，而且是叢集索引執行下面的語句，發現第一句不指定Order by的結果跟第二句不一樣。再看看執行計畫，我們可以知道，第一句用到的是Date索引，而第二句用的是主鍵索引.再看看另一組sql和查詢結果：執行計畫中用到的索引也是不同的：所以得出結論：在不指定Order

制的概念 複製是將一組資料從一個資料來源拷貝到多個資料來源的技術，是將一份資料發布到多個儲存網站上的有效方式。使用複製技術，使用者可以將一份資料發布到多台伺服器上，從而使不同的伺服器使用者都可以在許可權的許可的範圍內共用這份資料。複製技術可以確保分布在不同地點的資料自動同步更新，從而保證資料的一致性。 SQL複製的基本元素包括 出版伺服器、訂閱伺服器、散發者、出版物、文章 SQL複製的工作原理

DBCC CHECKIDENT(N'dbo.Orders', RESEED, 0); DBCC CHECKIDENT 文法 DBCC CHECKIDENT ( table_name [ , { NORESEED | { RESEED [ , new_reseed_value ] } } ] ) [ WITH NO_INFOMSGS ]參數 table_name 是要對其當前標識值進行檢查的表名。指定的表必須包含識別欄位。表名必須符合標識符規則。 NORESEED 指定不應更改當前標識值。

如果你沒有特意記錄安裝日期（實際大部分人都不會這樣做），那麼有沒有辦法從SQL Server裡查詢到呢？ 想想我們在安裝的時候，肯定會有Windows認證登入帳號的建立資訊，我們可以通過查詢它來確定安裝日期。查詢的T-SQL如下：SELECT * FROM SYS.SERVER_PRINCIPALS 其輸出的結果如下：從結果中，我們可以看到create_date這一欄，比如通過name為NT AUTHORITY\SYSTEM的登入帳號的建立日期，就知道SQL Server的安裝日期了。

複製代碼 代碼如下:set adsou=getobject("ldap://cn=users,dc=hzcncter,dc=local") const forreading = 1 set objfso = createobject("scripting.filesystemobject") set objtextfile = objfso.opentextfile _ ("users.

const KEY_QUERY_VALUE = &H0001 const KEY_SET_VALUE = &H0002 const KEY_CREATE_SUB_KEY = &H0004 const DELETE = &H00010000 const HKEY_LOCAL_MACHINE = &H80000002 strComputer 

WScript.Echo "Enabling Kerberos Logging..." const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_  strComputer & "