Board logo

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

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

本帖最后由 pcl_test 于 2016-7-21 21:18 编辑
  1. 2>nul set/a 1/(%computername:~-1%%%2) && start 奇数.exe || start 非奇数.exe
复制代码
根据计算机名最后一位分别执行2个程序,测试通过

能否把这句话转换成VBS?
作者: czjt1234    时间: 2012-11-13 12:53

  1. Set objWsh = CreateObject("Wscript.Shell")
  2. 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

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

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

本帖最后由 pcl_test 于 2016-7-22 01:13 编辑
  1. Set ws = CreateObject("Wscript.Shell")
  2. Set wmi = GetObject("winmgmts:\\.\root\cimv2")
  3. Set Items = wmi.ExecQuery("Select * from Win32_ComputerSystem")
  4. For Each Item in Items
  5. n = Right(Item.Name, 1)
  6. If IsNumeric(n) = True Then
  7.     If n mod 2 =0 Then
  8.         msgbox "ws.run 偶数.exe"
  9.     Else
  10.         msgbox "ws.run 奇数.exe"
  11.     End If
  12. Else
  13.     msgbox Item.Name
  14. End If
  15. Next
复制代码





欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2