Question

我有一个我正在尝试运行的脚本，它将获取IP地址和计算机名称并弹出其默认邮件客户端。我无法弄清楚如何让mailto抓住变量..任何帮助将不胜感激！

    Set objShell = CreateObject("Wscript.Shell") 

    Set objEnv = objShell.Environment("Process") 
    strComputer = objEnv("COMPUTERNAME") 
    strUser = "Scanner.User" 
    strPass = "SomePassword" 

    Set colAccounts = GetObject("WinNT://" & strComputer & ",computer") 

    Set objUser = colAccounts.Create("user", strUser) 

    objUser.SetPassword strPass 

    Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000 
    objPasswordExpirationFlag = ADS_UF_DONT_EXPIRE_PASSWD 
    objUser.Put "userFlags", objPasswordExpirationFlag 

    objUser.SetInfo 

    Set Group = GetObject("WinNT://" & strComputer & "/Administrators,group") 
    Group.Add(objUser.ADspath) 

    temp = "select IPAddress from Win32_NetworkAdapterConfiguration "& _ 
    "where IPEnabled=TRUE" 

    temp2 = "winmgmts:{impersonationLevel=impersonate}" 

    set IPConfigSet = GetObject(temp2).ExecQuery(temp) 

    for each IPConfig in IPConfigSet 
     if Not IsNull(IPConfig.IPAddress) then 
        for i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress) 

            objShell.Run("mailto:MyEmail@address.com&subject=strComputer&body=IPConfig.IPAddress(i)") 
           Msgbox IPConfig.IPAddress(i) 
        next 
     end if 
    next

Answer 1

您需要使用＆符号（VBScript's Concatenation Operator）来生成mailto URI。

objShell.Run("mailto:MyEmail@address.com&subject=" & strComputer & "&body=" & IPConfig.IPAddress(i))

objShell.Run MailTo填充变量

1 个答案: