常用vbs腳本-在線瀏覽
2024-09-02 13:51本頁面
【正文】 “添加/刪除程序”，點(diǎn)選“Windows安裝程序”，再鼠標(biāo)雙擊其中的“附件”一項(xiàng)，然后再在打開的窗口中將“Windows Scripting Host”一項(xiàng)的“√”去掉，然后連續(xù)點(diǎn)兩次“確定”就可以將WSH卸載。 3 如何確定哪些 USB 設(shè)備已連接到計(jì)算機(jī)上？ strComputer = . Set objWMIService = GetObject(winmgmts:// amp。 /root/cimv2) Set colDevices = _ (Select * From Win32_USBControllerDevice) For Each objDevice in colDevices strDeviceName = strQuotes = Chr(34) strDeviceName = Replace(strDeviceName, strQuotes, ) arrDeviceNames = Split(strDeviceName, =) strDeviceName = arrDeviceNames(1) Set colUSBDevices = _ (Select * From Win32_PnPEntity Where DeviceID = 39。 strDeviceName amp。) For Each objUSBDevice in colUSBDevices Next Next 4 如何在指定的一段時(shí)間后自動(dòng)消除消息框？ Const wshYes = 6 Const wshNo = 7 Const wshYesNoDialog = 4 Const wshQuestionMark = 32 Set objShell = CreateObject() intReturn = (Do you want to delete this file?, _ 10, Delete File, wshYesNoDialog + wshQuestionMark) If intReturn = wshYes Then You clicked the Yes button. ElseIf intReturn = wshNo Then You clicked the No button. Else The popup timed out. End If 5 回復(fù) 4：如何在指定的一段時(shí)間后自動(dòng)消除消息框？ Const wshYes = 6 Const wshNo = 7 Const wshYesNoDialog = 4 Const wshQuestionMark = 32 Set objShell = CreateObject() Set objFSO = CreateObject() intReturn = (Do you want to delete this file?, _ 10, Delete File, wshYesNoDialog + wshQuestionMark) If intReturn = wshNo Then End If (c:/scripts/) 6 回復(fù)：VBS 7 如何在腳本中使用多選對(duì)話框？ Set objDialog = CreateObject() = VBScript Scripts|*.vbs|All Files|*.* = amp。 arrFiles(i) strFile Next End If 8 如何確定計(jì)算機(jī)上是否存在某個(gè)文件夾？ Set objNetwork = Creat
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1