批处理之家 - Powered by Discuz! Board

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

作者: wenhongde 时间: 2012-11-13 12:05 标题: VBS如何获取计算机名的最后一位数字并根据奇偶执行不同操作/程序

本帖最后由 pcl_test 于 2016-7-21 21:18 编辑

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

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

能否把这句话转换成VBS？

作者: czjt1234 时间: 2012-11-13 12:53

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

作者: wenhongde 时间: 2012-11-13 13:30

感谢帮助，测试通过

作者: FOR 时间: 2012-11-21 15:05

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

作者: pcl_test 时间: 2016-7-21 21:36

本帖最后由 pcl_test 于 2016-7-22 01:13 编辑

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
复制代码

欢迎光临批处理之家 (http://bbs.bathome.net/)