How to use the Windows Script Host to read, write, and delete registry WSHShell = CreateObject("WScript.Shell") *!* Create Registry Keys WSHShell.Popup( "Create key HKCU\MyRegKey with value 'Top level key'") WSHShell.RegWrite( "HKCU\MyRegKey\", "Top level key popup WshShell.Popup . Display text in a pop-up message box. Syntax intButton = MyShellObject.Popup ( strText,[nSecondsToWait],[strTitle],[nType] ) Arguments strTex WshShell Set WSHShell=Wscript.CreateObject("Wscript.Shell") intMsg=WSHShell.Popup ("このダイアログは5秒後自動的に閉じます。",5,"Test",vbOKOnly) If intMsg=-1 Then MsgBox "自動的に Popup Method Dim WshShell, BtnCode Set WshShell = WScript.CreateObject("WScript.Shell") BtnCode = WshShell. Popup ("Do you feel alright?", 7, "Answer This Question:", 4 + 32) Select Case BtnCode WshShell Object You create a WshShell object whenever you want to run a program locally, manipulate the contents of CreateShortcut Method | Exec Method | ExpandEnvironmentStrings Method | LogEvent Method | Popup Method Sync Outlook With Exchange Server WshShell.Popup "Waiting 15 Seconds for Outlook to Load",15,"Waiting for Outlook to Load",59. End if. WshShell.AppActivate(OLTitle) Wscript.Sleep 300. WshShell.SendKeys "{F9 WSH » Objects » wshshell - DevGuru Quick Reference Syntax: WshShell.Popup [,intSecondsToWait] [,strTitle] [,intType] The Popup method displays a pop-up message box. RegDelete. Syntax: WshShell.RegDelete (strName www7a.biglobe.ne.jp WSHShell.Popup("âfü[â^Æl 'Lhaplus Backup Default' é⌐éτò╢ÄÜù±Ælé≡ĵô╛é┼é½é▄é╣é±üB") WScript.Quit. End If. WSHShell.RegWrite "HKCR\.exe\", strDefault, "REG_SZ" www.virtualconspiracy.com Dim WshShell, BtnCode . Set WshShell = WScript.CreateObject("WScript.Shell") Set objArgs = WScript.Arguments . if objArgs.Count>0 then. BtnCode = WshShell.Popup("Do you want to decode those files Popup Method Displays text in a pop-up message box. object. WshShell object. strText. String value containing the text you want to appear in the pop-up
WSH » wshshell » Popup - DevGuru Quick Reference The DevGuru WSH Quick Reference is the definitive WSH reference and tutorial resource on the web, with hundreds of ready to use examples for you to include XCON: Descrizione di Registrazione Diagnostica per MTA Shell") WSHShell.Popup "Setting value HKLM\System\CurrentControlSet\Services\ MSExchangeMTA\Parameters\Text Event Log to 1" WSHShell. Automatically create users with VBScript SetInfo End If Else UserStatus = WshShell.popup("Is this user a standard Non Fee Earner",,"User Type",4) If UserStatus = vbYes Then Set objGroup WshShell Shell") intMsg=WSHShell.Popup ("このダイアログは5秒後自動的に閉じ ます。",5,"Test",vbOKOnly) If intMsg=-1 Then MsgBox "自動的に閉じました。 Lesson9 ウィンドウは表示しないWSHShell.Run "notepad.exe " & Wscript.ScriptFullName,1,True ' 実行したスクリプト自体をメモ帳で表示WSHShell.Popup "実験終わり",3,"
Automatically create users with VBScript SetInfo End If Else UserStatus = WshShell.popup("Is this user a standard Non Fee Earner",,"User Type",4) If UserStatus = vbYes Then Set objGroup WshShell Shell") intMsg=WSHShell.Popup ("このダイアログは5秒後自動的に閉じ ます。",5,"Test",vbOKOnly) If intMsg=-1 Then MsgBox "自動的に閉じました。 Lesson9 ウィンドウは表示しないWSHShell.Run "notepad.exe " & Wscript.ScriptFullName,1,True ' 実行したスクリプト自体をメモ帳で表示WSHShell.Popup "実験終わり",3," Using the <i>Popup</i> Method The call to WshShell.Popup uses the following syntax: But if you want to use the Popup method exposed by the WshShell object, you can take the approach Annoyances.org - Using the Windows Script Host The first line creates our WshShell object for the Popup later in the script. The second line does two things: it first asks the user to type something, Michel's IIS, ASP and General Windows platform corner WSHShell.PopUp "The new metabase settings have been successfully updated. WSHShell.PopUp "Content Index service failed to stop successfully. RENAME THIS FILE TO MOVEIIS.VBS BEFORE USING PopUp "The data has been successfully moved to D:\Inetpub" else WSHShell. Sleep 5000 Next If ret = 0 then WSHShell.PopUp "Services were started VBScript - WshShell.Popup - administrator IT-Forum, Tutorials, News und Knowledgebase. Hier finden Sie kostenlose Hilfe bei vielen IT-Problemen! In unseren Diskussionsforen finden Sie die richtigen
|