标签: vbscript

是否有任何已知的方法列出可用于特定系统的WMI类及其属性？我对vbscript方法感兴趣,但请提出任何建议:)

PS很棒的网站.

我有一个名为'data'的变量我需要写入一个名为"listfile.txt"的文本文件.你能告诉我vbscript代码吗？我需要vbscript代码从textfile"listfile.txt"读取值也

我正在使用Windows 7

我写了一个脚本来检查我的笔记本电脑是以电池还是交流电流运行.我用Google搜索并在那里成功.

dim a
a=1
Do While a=1 
If IsLaptop( "." ) Then
   ' WScript.Echo "Laptop"
Else
   ' WScript.Echo "Desktop or server"
End If
Loop

Function IsLaptop( myComputer )
    On Error Resume Next    
    Set objWMIService = GetObject( "winmgmts://" & myComputer & "/root/cimv2" )
    Set colItems = objWMIService.ExecQuery( "Select * from Win32_Battery", , 48 )
    IsLaptop = False
    For Each objItem in colItems
        if objItem.BatteryStatus=2 and objItem.EstimatedChargeRemaining=98 then
             WScript.Echo "Remove Ac Adapter Immediately"
        elseif objItem.BatteryStatus=1 and objItem.EstimatedChargeRemaining=10 then
             WScript.Echo "Pluggin …

这是我程序中的代码片段:

WSHShell = WScript.CreateObject("WScript.Shell")

但由于某种原因,未声明"WScript".我知道这段代码在VBScript中有效但我正试图让它与vb.net一起工作.什么出错了？

我究竟做错了什么？从我的测试中,objDic.exists永远不会给出错误!

    dim objDic

    set objDic = createobject("scripting.dictionary")

    objDic.add "test","I have not been deleted"

    wscript.echo objDic.item("test") 'Displays -- I have not been deleted

    objDic.remove "test"

    wscript.echo """" & objDic.item("test") & """" 'Displays -- ""

    if objDic.exists("test") then wscript.echo """" & objDic.item("test") & """" 'Displays -- ""

我试图将参数连接到一个字符串,以传递给另一个脚本.下列:

WScript.Echo(Join(WScript.Arguments))

给我一个错误:

Error: Wrong number of arguments or invalid property assignment
Code: 800A01C2

那句法有什么问题？

我有一个包含许多文件的文件夹.看起来像file1.txt,newFile1.txt,file2.txt,newFile2.txt,file3.txt,newFile3.txt,file4.txt,newFile4.txt,....

我有一个生成newFilei.txt的代码.我想写一个vbscript来检查这个文件夹中是否存在newFile.我试过这个

Set objFolder = FSO.GetFolder("C:\myFolder\")

For Each objFile In objFolder.Files 
        fileName=objFile.name 
    If instr(fileName,"newFile*") =1 Then
        WScript.Echo "new File exist"
    End If
Next 

但这没用.有任何想法吗 ？

我正在尝试编写一个使用Google语音来发送消息的vbscript .

我必须将代码保存到带有UTF8编码的 notepad ++中,而没有BOM和发音很好,但是消息框的显示不适合重音字符.如何解决这个问题呢 ？

谢谢!

Option Explicit
Call Ip_Publique()
'***********************************************************************************************************************************************************
Sub Ip_Publique()
    Dim Titre,URL,ie,objFSO,Data,OutPut,objRegex,Match,Matches,ip_public
    Dim Message,URLFR
    Message = "Vous êtes connecté à internet !" & VbCrlf & "Votre IP Publique est : "
    URLFR = "http://translate.google.com/translate_tts?ie=UTF-8&tl=fr&q=" & Message
    Titre = "Adresse Ip Publique !"
    URL = "http://monip.org"
    If OnLine("smtp.gmail.com") = True Then 
        Set ie = CreateObject("InternetExplorer.Application")
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        ie.Navigate (URL)
        ie.Visible=False
        DO WHILE ie.busy
            Wscript.Sleep 100
        Loop
        Data = ie.document.documentElement.innertext
        Set …

如何在VBS中实现等待键功能？我需要一些可以暂停脚本的东西,当用户按下left_arrow键时,它会继续执行该程序.

我想使用Visual Studio 2017 Community Edition调试vbscript,并按照此处提到的VS2015的步骤进行操作:

视频

我进入了

cscript.exe /x foo.vbs

在命令行中,但没有调试器启动.2017的VS版本是否有问题,或者是否有一些步骤(例如VS中的配置步骤)未在视频中显示？

编辑:我试过cscript.exe //X foo.vbs,cscript.exe foo.vbs //X,cscript.exe //X //D foo.vbs和cscript.exe foo.vbs //X //D太

谢谢steff