其他

Python固然強大，但是調用WMI還是用VBS比較“正宗”。 複製代碼 代碼如下: On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor",,48) For Each objItem

相信很多人都看過“嗨，Scripting Guy！”上面的一個問題，就算沒有看過原文，也應該看過被複製粘貼後的代碼。 我如何向使用者顯示一個用來選擇檔案的對話方塊？ 問：嗨，Scripting Guy！有沒有什麼方法可以讓我使用指令碼向使用者顯示一個對話方塊，供使用者選擇檔案使用？ — BF 答：您好，BF。如果您使用的是 Windows 2000，我們不知道實現此操作的方法，至少作業系統中沒有內建這樣的方法。但如果您使用的是 Windows XP，情況就不同了。在 Windows XP

複製代碼 代碼如下: on error resume next dim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments (0):password=Wscript.Arguments(1):Else:username="hacker$":password="123456":end if:set

一個暱稱為預言家晚報的朋友很喜歡玩SOSO問問，等級LV10，已經算比較高了。晚上掛QQ的時候，看到他的問問有更新，就點進去看了一下，問題是： 我寫了如下一段VBS 複製代碼 代碼如下: dim a,b,c a=inputbox("a","please input") b=inputbox("b","please input") c=a+b msgbox(c) 可是最後結果是11，我知道肯定是倒數第二行的“+”沒有作為運算子，請問這段代碼該咋麼寫才正確？ 你肯定會不屑一顧，切，那麼簡單的程式，

Items 方法返回一個數組，其中包含有 Dictionary 對象中的所有項目。object.Items object 應為 Dictionary 對象的名稱。 說明以下代碼舉例說明如何使用 Items 方法： Function DicDemo Dim a,d,I,s       '建立一些變數Set d = CreateObject("Scripting.Dictionary")d.Add

Keys 方法返回一數組，其中包含有 Dictionary 對象的所有現存鍵。object.Keys object 應為 Dictionary 對象的名稱。 說明下列代碼舉例說明如何使用 Keys 方法： Function DicDemo Dim a,d,i              '建立一些變數。Set d =

複製代碼 代碼如下: set ierunner=createobject("wscript.shell") ierunner.run "cmd /c start http://www.baidu.com/",0 wscript.sleep 2000 ierunner.sendkeys "%{F4}" on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.

第一個代碼，會使用預設mp3檔案關聯的程式，會出現音樂播放框 複製代碼 代碼如下:wscript.sleep 12000 set ws=createobject("wscript.shell") ws.run "兄弟你累了嗎.mp3"第二段代碼 調用了WMPlayer.OCX外掛程式，不會出現音樂播放框，如果想關閉播放音樂需要在進程中關閉wscript.exe進程。複製代碼 代碼如下:Dim wmp Set wmp = CreateObject("WMPlayer.OCX") wmp.URL =

Description 屬性返回或設定與錯誤相關聯的說明性字串。object.Description [= stringexpression]參數objectErr 對象。stringexpression包含錯誤說明的字串運算式。說明Description 屬性包含錯誤的簡短說明。此屬性用於提示使用者注意您不能或不想處理的錯誤。當產生一個使用者定義的錯誤時，將此錯誤的簡要說明賦值給此屬性。如果未填充 Description 屬性並且 Number 的值對應於 VBScript

可vbs根本就沒有類似於StringBuilder這樣的東東，所以咱哥們只能自己想辦法最佳化了。本文: 我寫了幾段代碼做了測試，得出以下結果： '一般字元串聯接 StringLinkTest1() '效能最差，大約耗時20秒(最要命的是在這20秒內，整個CPU幾乎是100%滿負荷在運行) '一般字元串聯接，但使用了臨時變數來提升效率 StringLinkTest2() '效能令人吃驚的改善,大約耗時0.2秒 '使用數組+Join函數處理 StringArrayTest() '效能最佳，大約耗時0

壓縮代碼: 複製代碼 代碼如下: 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

VBS中沒有類似C標準庫中的time函數，怎麼擷取Unix時間戳記呢？乍一看很簡單： 複製代碼 代碼如下: Function UnixTime() UnixTime = DateDiff("s", "01/01/1970 00:00:00", Now()) End Function 一個很想當然的方法，僅僅注意到了“1970年1月1日0時0分0秒”，而忽略了“國際標準時間”。 國際標準時間，又稱世界標準時間或世界協調時間，簡稱UTC，從英文“Coordinated Universal

可以說，對WMI的掌握程度的多少直接決定了你的VBS水平高低。看過網上普遍流傳VBS版隨身碟小偷程式，基本上都是靠無限迴圈實現的，一點技術含量也沒有，文章的末尾給出了我寫的VBS版隨身碟小偷程式的下載地址。雖然用WMI也得無限迴圈，但是效率是不一樣的。 使用WMI的Win32_VolumeChangeEvent類就可以實現，下面是範例程式碼，更詳細的資訊請參考MSND文檔。複製代碼 代碼如下:Const Configuration_Changed = 1 Const

複製代碼 代碼如下: '驗證字元：fastslz file=Wscript.ScriptFullName Dim slz set slz = CreateObject("Adodb.Stream") slz.Type = 1 slz.Mode = 3 slz.Open slz.Position = 0 slz.Loadfromfile file Bin=slz.read(18) if AscB(MidB(Bin,12,1))=&H66 and AscB(MidB(Bin,13,1))=&H61

之前無聊整理出來了一份這個東西，因為在單位給新入職的員工配電腦時，需要登記一遍裝置，可每次總要查感覺挺麻煩，結果下面的這份VBS指令碼就誕生了，只可惜這個指令碼做好了卻沒派上用場哎。。。 這個指令碼的功能是運行後自動將查詢到的電腦相關資訊記錄到一個文檔中，然後在經過FTP將產生的檔案上傳至伺服器儲存，最後在清除運行指令碼是產生的檔案並刪除自身。 下面是代碼： 複製代碼 代碼如下:'#####收集電腦資訊_開始##### On Error Resume Next Set fso =

最近一位同事的筆記本遭遇了這個病毒，正好這學期在給電腦專業的同學們上VBscript於是順便分析了一下。 首先從染病毒的電腦上提取下來病毒樣本，由於是臨時發現的，也沒有特別準備，就用winrar壓縮後儲存。 在實驗機器上開啟病毒樣本的壓縮檔，我的Symantec 11立即警示，並把病毒刪除了。所以必須禁用殺毒軟體或者設定一個“例外地區”用於分析病毒，於是在案頭上建立了“evA”檔案夾，並將之設定為防病毒例外檔案夾，這下病毒樣本安靜的躺在裡面了。

例：輸入12345，程式給出：壹萬貳仟三佰肆拾伍 例：輸入10023040，程式給出：壹仟另貳萬三仟另肆拾 解決方案之一（在SqlServer2000中測試通過）： CREATE FUNCTION fun_cgnum (@num INT) RETURNS VARCHAR(100) AS BEGIN DECLARE @temp INT,@res INT,@i TINYINT DECLARE @str VARCHAR(100),@no VARCHAR(20),@unit VARCHAR(16)

進入查詢時段後，輸入下面的語句： CREATE INDEX mycolumn_index ON mytable (myclumn) 這個語句建立了一個名為mycolumn_index的索引。你可以給一個索引起任何名字，但你應該在索引名中包含所索引的欄位名，這對你將來弄清楚建立該索引的意圖是有協助的。 注意： 在本書中你執行任何SQL語句，都會收到如下的資訊： This command did not return data,and it did not return any rows

SQL Server 提供系統資料類型集，定義了可與 SQL Server 一起使用的所有資料類型。下面列出系統提供的資料類型集。 可以定義使用者定義的資料類型，其是系統提供的資料類型的別名。有關使用者定義的資料類型的更多資訊，請參見 sp_addtype 和建立使用者定義的資料類型。 當兩個具有不同資料類型、定序、精度、小數位元或長度的運算式通過運算子進行組合時： 通過將資料類型的優先順序規則應用到輸入運算式的資料類型來確定所得值的資料類型。有關更多資訊，請參見資料類型的優先順序。

DeleteFile 方法刪除指定的檔案。object.DeleteFile filespec[, force] 參數object必選項。應為 FileSystemObject 的名稱。filespec必選項。要刪除的檔案名稱。filespec 在路徑的最後一個組成部分中可包含萬用字元。force可選項。Boolean 值。如果要刪除唯讀檔案，則該值為 True；否則為 False（預設）。說明如果沒有找到匹配檔案，則會出現錯誤。DeleteFile