VBscript를 사용하여 컴퓨터에서 정보 얻기

Question

안녕하세요 저는 일련 번호, IP 주소, 로그인 사용자, 사무실의 produkt 키, 텍스트 파일의 자동 실행이 필요한이 스크립트를 작성했습니다. 나는 스크립트를 작성하기 시작했지만 몇 가지 문제가 있습니다. 완료된 스크립트가 아니라 여기에 다소 붙어 있습니다.

Here's 스크립트 : Microsoft는 자동으로 작업의 같은 종류의 VBScript 코드를 생성은 Scriptomatic라는 무료 도구를 만들었습니다

On Error Resume Next 

    Const wbemFlagReturnImmediately = &h10 
    Const wbemFlagForwardOnly = &h20 

    arrComputers = Array("localhost") 
    For Each strComputer In arrComputers 

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
    Set colItems = objWMIService1.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly)       
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
    Set colItems = objWMIService2.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) 

    Set objWMIService = GetObject("winmgmts:\\" & strCoputer & ".\root\CIMV2") 
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) 

    next 

    For Each objItem In colItems2 

    Dim fso, tf 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set tf = fso.CreateTextFile ("c:\" & objItem.UserName & ".txt", True) 
    tf.Write "Username: " & objItem.UserName 
    tf.WriteBlankLines(1) 
    tf.Write "Hostname: " & objItem.Name 
    tf.WriteBlankLines(1) 
    tf.Write "Domain: " & objItem.Domain 
    tf.WriteBlankLines(2) 

    next 

    For Each objItem In colItems1 

    tf.Write "Serial: " & objItem.IdentifyingNumber 
    tf.WriteBlankLines(1) 
    tf.Write "Model: " & objItem.Name 
    tf.WriteBlankLines(2) 
    tf.Write "Vendor: " & objItem.Vendor 
    tf.WriteBlankLines(1) 
    tf.Write "Version: " & objItem.Version 
    tf.WriteBlankLines(2) 

    Next 

    For Each objItem In colItems3 

    tf.Write "IP Address: " & objItem.IPAddress 
    tf.WriteBlankLines(1) 
    tf.Close 

    next 

Answer 1

. 아래 위치에서 스크립트 가상을 다운로드 할 수 있습니다. http://www.microsoft.com/en-in/download/details.aspx?id=12028