0

我创建了一个 VBScript,它从计算机中提取服务标签、用户名和计算机名称。我现在需要做的是在文本文档中编译这些信息。

它的设置方式如下:

我们有一个 Active Directory 服务器,其中有一个用于登录脚本的文件夹。我创建了一个批处理文件来运行这个 .vbs 脚本,该脚本到目前为止运行良好。我现在需要的是在 AD 服务器上的一个名为“logging.txt”的文件中填充使用 .vbs 脚本创建的信息。

这是我到目前为止的脚本:

'Get Dell Service Tag Info
set ProSet = GetObject("winmgmts:").InstancesOf("Win32_BIOS")
Set ProSet1 = GetObject("winmgmts:").InstancesOf("Win32_SystemEnclosure")
For each Pro in ProSet
  For each Pro1 in ProSet1
   ServiceTag=Pro.SerialNumber
    wscript.echo ServiceTag
    exit for
  Next
  exit for
Next

'get username and computername, could also be asked in a batch
Set oShell     = WScript.CreateObject("WScript.Shell")
Set oShellEnv  = oShell.Environment("Process")
sComputerName  = oShellEnv("ComputerName")
sUsername      = oShellEnv("username")
wscript.echo sComputerName & " " & sUsername

非常感谢您!

4

0 回答 0