vmware启动器

窄口牛 · 发表于 3 天前

Option Explicit
Const VMwareService1 = "VMAuthdService"
Const VMwareService2 = "VMnetDHCP"
Const VMwareService3 = "VMwareHostd"
Const VMwareService4 = "VMware NAT Service"
Const VMwareService5 = "VMUSBArbService"
Const VMwareProcess = "vmware.exe"
Dim WSHShell, objWMIService, process, servicesStarted
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
servicesStarted = False
StartVMwareServices
WSHShell.Run """D:\Program Files\VMware Workstation\vmware.exe""", 1, False
WaitForProcessExit
If servicesStarted Then
StopVMwareServices
End If
'WScript.Echo "VMware进程已退出，相关服务已停止"
WScript.Quit 0
Sub StartVMwareServices()
Dim service, serviceName
On Error Resume Next
Dim serviceList
serviceList = Array(VMwareService1, VMwareService2, VMwareService3, VMwareService4,VMwareService5)
For Each serviceName In serviceList
      Set service = objWMIService.Get("Win32_Service.Name='" & serviceName & "'")
      If Err.Number = 0 Then
         If service.State <> "Running" Then
            'WScript.Echo "正在启动服务: " & serviceName
            Dim result
            result = service.StartService()
            If result = 0 Then
                  servicesStarted = True
                  'WScript.Echo serviceName & " 服务已启动"
            Else
                  'WScript.Echo "无法启动服务: " & serviceName & ", 错误码: " & result
            End If
         Else
            'WScript.Echo serviceName & " 服务已在运行"
         End If
      Else
         'WScript.Echo "未找到服务: " & serviceName
      End If
      Err.Clear
Next
On Error GoTo 0
End Sub
Sub StopVMwareServices()
Dim service, serviceName
On Error Resume Next
Dim serviceList
serviceList = Array(VMwareService1, VMwareService2, VMwareService3, VMwareService4,VMwareService5)
For Each serviceName In serviceList
      Set service = objWMIService.Get("Win32_Service.Name='" & serviceName & "'")
      If Err.Number = 0 Then
         If service.State = "Running" Then
            'WScript.Echo "正在停止服务: " & serviceName
            Dim result
            result = service.StopService()
            If result = 0 Then
                  'WScript.Echo serviceName & " 服务已停止"
            Else
                  'WScript.Echo "无法停止服务: " & serviceName & ", 错误码: " & result
            End If
         Else
            'WScript.Echo serviceName & " 服务未运行"
         End If
      Else
         'WScript.Echo "未找到服务: " & serviceName
      End If
      Err.Clear
Next
On Error GoTo 0
End Sub
Sub WaitForProcessExit()
Dim processes
'WScript.Echo "等待VMware进程退出..."
Do
      WScript.Sleep 5000 ' 每5秒检查一次
      Set processes = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & VMwareProcess & "'")
Loop While processes.Count > 0
'WScript.Echo "VMware进程已退出"
End Sub

启动vmware.zip (1.02 KB, 下载次数: 48)
运行vmware前打开vmware服务，关闭之后，随即关闭其服务。

2010wsz2571 · 发表于 3 天前

谢谢分享

guong · 发表于 3 天前

感谢分享

2044571386 · 发表于 3 天前

感谢分享！

yhage · 发表于 3 天前

这个的具体用途是什么？

窄口牛 · 发表于 3 天前

好多软件都应该有这种启动器，关闭之后，所有进程都清理掉。

1905190536 · 发表于 3 天前

感谢楼主大大分享

小灰兔 · 发表于 3 天前

感谢分享

dksoft · 发表于 3 天前

感谢分享

hlowld · 发表于 3 天前

好东西，如果把服务和驱动的安装和删除加上，vmware就完全便携化了。

yuzmb · 发表于 3 天前

惊为天人的神作，又可以精简几个开机启动项了

吕布骑蚂蚁 · 发表于 3 天前

谢谢分享，楼主大气，分享的内容就像在寒冷的冬天中递过来一个暖宝宝，心里暖暖的

wn168cn@163.com · 发表于 3 天前

感谢楼主分享

wonderfully · 发表于 3 天前

感谢分享！

rengrancunzai · 发表于 3 天前

谢谢分享

handsome_xiang · 发表于 3 天前

感谢分享！

promrhxq · 发表于 3 天前

感谢分享好东东

benbert256 · 发表于前天 00:35

谢谢分享

waster · 发表于前天 00:57

感谢分享

fh123456 · 发表于前天 04:13

谢谢分享

wang1126 · 发表于前天 06:20

谢谢楼主分享

fegr · 发表于前天 14:50

感谢分享

1230010212 · 发表于昨天 21:19

好东西，感谢分享

makoto23 · 发表于昨天 21:28

谢谢分享

		自动登录	找回密码
密码			注册

vmware启动器

点评