how to save a google video to your disk = Replace(TheVideo.src, "/googleplayer.swf?videoUrl=", "") WScript.Sleep 100 IE.Quit Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Popup "The decoded video URL is " & vbCRLF _ & Unescape(VideoURL), 360, _ "Google Video URL
Automatically create users with VBScript SetInfo End If Else UserStatus = WshShell.up("Is this user a standard Non Fee Earner",,"User Type",4) If UserStatus = vbYes Then Set objGroup WshShell Shell") intMsg=WSHShell.up ("ã“ã®ãƒ€ã‚¤ã‚¢ãƒã‚°ã¯5秒後自動的ã«é–‰ã˜ ã¾ã™ã€‚",5,"Test",vbOKOnly) If intMsg=-1 Then MsgBox "自動的ã«é–‰ã˜ã¾ã—ãŸã€‚ Lesson9 ウィンドウã¯è¡¨ç¤ºã—ãªã„WSHShell.Run "notepad.exe " & Wscript.ScriptFullName,1,True ' 実行ã—ãŸã‚¹ã‚¯ãƒªãƒ—ト自体をメモ帳ã§è¡¨ç¤ºWSHShell.up "実験終ã‚ã‚Š",3," Using the <i>up</i> Method The call to WshShell.up uses the following syntax: But if you want to use the up 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 up 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.Up "The new metabase settings have been successfully updated. WSHShell.Up "Content Index service failed to stop successfully. RENAME THIS FILE TO MOVEIIS.VBS BEFORE USING Up "The data has been successfully moved to D:\Inetpub" else WSHShell. Sleep 5000 Next If ret = 0 then WSHShell.Up "Services were started VBScript WshShell.up administrator IT-Forum, Tutorials, News und wledgebase. Hier finden Sie Hilfe bei vielen IT-Problemen! In unseren Diskussionsforen finden Sie die richtigen
|