[问题求助] VBS如何获取计算机名的最后一位数字并根据奇偶执行不同操作/程序

wenhongde

2>nul set/a 1/(%computername:~-1%%%2) && start 奇数.exe || start 非奇数.exe
复制代码

根据计算机名最后一位分别执行2个程序，测试通过

能否把这句话转换成VBS？

pcl_test

Set ws = CreateObject("Wscript.Shell")
Set wmi = GetObject("winmgmts:\\.\root\cimv2")
Set Items = wmi.ExecQuery("Select * from Win32_ComputerSystem")
For Each Item in Items
n = Right(Item.Name, 1)
If IsNumeric(n) = True Then
    If n mod 2 =0 Then
        msgbox "ws.run 偶数.exe"
    Else
        msgbox "ws.run 奇数.exe"
    End If
Else
    msgbox Item.Name
End If
Next
复制代码

FOR

Randomize():a= int((99-1)*rnd()+1):b=a mod 2
if b=0 then 
	msgbox(a&" 是偶数")
else
	msgbox(a&" 奇数")
end if
复制代码

wenhongde

感谢帮助，测试通过

czjt1234

Set objWsh = CreateObject("Wscript.Shell")
objWsh.Run "cmd.exe /c 2>nul set/a 1/(%computername:~-1%%%2) && start 奇数.exe || start 非奇数.exe", 0, True
复制代码