안녕하세요 올엠 입니다.

오늘은 Windows Update 리스트를 생성해 주는 Getupdate에 대해 알려드리겠습니다.

뭐.. 제가 만든건 아니구, 필요해 의해 찾게 되었습니다.

우선 만들어주신 개발자 분에게 감사의 말을 전합니다.(외국인 이므로, 영어로 해야하나.. ;;)

일반적으로는, 업데이트 리스트를 저장할 필요가 없지만, 서버 관리자의 경우는 다르겠죠, 각서버의 업데이트 상태등을 확인하기 위해 본 스크립트는 유용할수 있어요.
GetUpdate는 VB 스크립트로 실행하면, 윈도우와 관련된 설치된 패치들을 HTML 파일로 생성하여 나열하게 됩니다.


그렇다면 본 스크립트는 어떤 원리로 작동하는 것일까요?

내용을 보면 WMI의 쿼리를 사용하여 인스톨된 업데이트 리스트를 생성하도록 되어 있습니다. (내용이 길지도 않습니다.)
Set QFEs = objWMIService.ExecQuery ("Select * from win32_QuickFixEngineering")

위 문장으로 Windows 관련 패치내용을 수집합니다.

그리고 나열은
QFE를 사용하여, For를 사용하여 QFE로 QFEs를 넣고 if문으로 하나씩 나누어 줄을 찍도록 합니다.
For Each QFE in QFEs

여기서 나열시 링크를 만들수 있었던건, MS는 핫픽스 번호와 웹링크가 일치한다는것을 이용하여,
    "<TD> <a href=""http://support.microsoft.com/?kbid=" & getKBID(QFE.HotFixID) & """>" & getKBID(QFE.HotFixID) & "</a></TD>" &_  
위 문장으로 웹링크를 같이 자동적으로 생성해준다는 것이죠.
그런데 getKBID(QFE.HotFixID)라는 함수로 값을 가져가도로고되어 있죠?
그전에 아래 작업을 먼저 진행하여, 링크 오류를 없애 주기 위해서 입니다.

일부 패치 HotFixID의 경우 KB 웹문서로 만들어 지지 않았을 수 있죠, 바로 Q, M또는 아예 번호가 없는 경우
 이에 대한 수정을 할 필요가 있겠죠. 이작업을 진행해 주는것이 바로 아래 문장들 입니다.
 Dim KBNumber
 KBNumber = right(HotFixID,6)
 if isNumeric(KBNumber) then
  getKBID = KBNumber
 else
  getKBID = "No KB Number Found"
 end if
end function

KBNumber 함수에 HotFIxID 값을 확인하는데, 6자리의 값만을 가져오도록 함수를 수정후
만약  KBNumber 이 값이 숫자라면,로 getKBID값으로 넣게 되며, 숫자가 아니면, No KB Number Found의 값을 getKBID로 넣게 됩니다.

본 스크립트를 실행한 결과는 아래와 같습니다.

Netsh DHCP server scope Network_Address delete lease allbadaddresses

 

예)

10.1.2.0 네트워크의 Badaddresses삭제

 

 

Netsh dhcp server scope 10.1.2.0 delete lease allbadaddresses

 

이렇게 .bat를 만들어 예약 작업에 넣어두고 실행해보자

 

그럼 자동으로 삭제가 된다

오늘은 오랫만에 글 2개를 쓰네요..

다음은 지정일 이상 지난 파일을 삭제하는 스크립트 입니다.

만약 한달에 한번씩 백업을 받는다면, 해당 파일을 삭제를 해야할것 입니다.

이때 마지막 수정일 기준으로 현재로 부터 30일 이상 된 파일을 삭제하도록 스케줄을 걸어두면 참 편리하겠죠?

예전에 사용하던 스크립트 인데, 이 스크립트는 이 기능을 해주는 스크립트입니다.

출처는 저도 잘 모르는 인터넷의 외국분이 만들어 주셨습니다. 간단한 한글 설명은 제가 달아두었습니다.

삭제후 삭제된 파일에 대한 로그도 남기도록 되어 있으므로 테스트후 사용하시기 바랍니다.

스크립트에서 지우면 않되는 파일에대한 Filter 리스트도 생성해 줄수 있으므로 유용할거라 생각됩니다.

Del-file.vbs

제가 가지고 있던 스크립트를 개조하여, 파일 사이즈를 표시하도록 수정하였습니다.

원래 버전은 각 파일의 버전을 표시하도록하는 것이죠 ^^;

아래 스크립트를 만들어 실행하시면, 각 파일의 사이즈를 조사하여 텍스트 파일로 저장합니다. (하위디렉토리 포함,표시 단위는 바이트 입니다.)

' GetSize.VBS
' Example: CScript.EXE GetSize.VBS /f:"C:\Documents and Settings\Administrator\local settings" /r:c:\test.txt

Option Explicit

Dim objArgs:     Set objArgs = WScript.Arguments
Dim objFSo:     Set objFSo = CreateObject("Scripting.FileSystemObject")
Dim sHelpString, sRootFolder, sReport, sReportName

sHelpString = "GETVER.VBS - Tool to list all files that have a version number in" & vbcrlf _
          & "a specified folder and its subfolders" & vbcrlf & vbcrlf _
          & "/F:<path> - Specify the root folder to gather the information" & VbCRLf _
          & "/R:<path> - Specify the file to produce the output to. It will" & vbCRLf _
          & " overwrite the file if it already exists"

If objArgs.Count = 0 Then Wscript.Echo sHelpString: Wscript.Quit
If objArgs(0) = "/?" Then Wscript.Echo sHelpString: Wscript.Quit

Dim I
For I = 0 to objArgs.Count - 1
     If UCase(Left(objArgs(I),3)) = "/F:" Then sRootFolder = Trim(Mid(objArgs(I),4))
     If UCase(Left(objArgs(I),3)) = "/R:" Then sReportName = Trim(Mid(objArgs(I),4))
Next

Set sReport = objFSo.CreateTextFile(sReportName, True)

RecurseFldr (sRootFolder)

Sub RecurseFldr(sFolderName)
 Dim oFolder, cFolder, cFile, sUnit, sVer

 If not objFSo.FolderExists(sFolderName) Then
     Wscript.Echo "Error: " & chr(34) & sFolderName & chr(34) & " does not exist or is no longer available"
     Wscript.Quit
 End If

 Set oFolder = objFSo.GetFolder(sFolderName)
 Set cFolder = oFolder.Subfolders
 Set cFile = oFolder.Files
 
 'Stack this procedure for every folder in the collection
 For Each sUnit In cFolder
     sReport.WriteLine "Folder - " & sUnit
     RecurseFldr(sUnit)
 Next

 'Then process each file in the current folder
 For Each sUnit In cFile
  Set sVer = objFSO.GetFile(sUnit)
     If sVer<>"" Then sReport.WriteLine "File - " & sUnit.Name & vbTab & "File - " & sVer.size
 Next

End Sub

연습하기 좋은 스크립트로 실행하면 바탕화면에 노트패드 바로가기를 생성할것인지 문의후
 아래 스크립트를 누르면 메세지 박스를 실행후, 메모장 바로가기를 생성하게 됩니다.

 

추가 설명을 붙일까 했으나.. 원문 그대로 보시는게 좋을 것 같습니다.

프로그래밍 연습삼아 한번 만들어보시기 바래요~

 

'~~Author~~.    Microsoft

'~~Email_Address~~. no-email@microsoft.com

'~~Script_Type~~.   Vbscript

'~~Sub_Type~~. Misc

'~~Keywords~~.      Shortcut, WshShell

 

'~~Comment~~.

'This sample demonstrates how to use the WSHShell object to create a shortcut on the desktop.

 

'~~Script~~.

 

 

' Windows Script Host Sample Script

'

' ------------------------------------------------------------------------

'               Copyright (C) 1996-1997 Microsoft Corporation

'

' You have a royalty-free right to use, modify, reproduce and distribute

' the Sample Application Files (and/or any modified version) in any way

' you find useful, provided that you agree that Microsoft has no warranty,

' obligations or liability for any Sample Application Files.

' ------------------------------------------------------------------------

 

 

' This sample demonstrates how to use the WSHShell object to create a shortcut

' on the desktop.

 

L_Welcome_MsgBox_Message_Text   = "This script will create a shortcut to Notepad on your desktop."

L_Welcome_MsgBox_Title_Text     = "Windows Scripting Host Sample"

Call Welcome()

 

' ********************************************************************************

' *

' * Shortcut related methods.

' *

 

Dim WSHShell

Set WSHShell = WScript.CreateObject("WScript.Shell")

 

 

Dim MyShortcut, MyDesktop, DesktopPath

 

' Read desktop path using WshSpecialFolders object

DesktopPath = WSHShell.SpecialFolders("Desktop")

 

' Create a shortcut object on the desktop

Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\Shortcut to notepad.lnk")

 

' Set shortcut object properties and save it

MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe")

MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%")

MyShortcut.WindowStyle = 4

MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe, 0")

MyShortcut.Save

 

WScript.Echo "A shortcut to Notepad now exists on your Desktop."

 

' ********************************************************************************

' *

' * Welcome

' *

Sub Welcome()

    Dim intDoIt

 

    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _

                      vbOKCancel + vbInformation,       _

                      L_Welcome_MsgBox_Title_Text )

    If intDoIt = vbCancel Then

        WScript.Quit

    End If

End Sub

가끔 사용해야하는 네트워크 드라이브를 주소를 넣고 항상 입력하기란 번거롭습니다.
자기 컴퓨터라면 아예 저장을 시켜 사용할수 있지만, 패스워드가 로컬과 원격 시스템이 다르다면, 부팅시 항상 패스워드를 물어보게 됩니다.

그럴때
아래 내용을 netdrive.cmd 파일로 만들어 시작프로그램에 넣어두시기 바래요
그럼 컴퓨터 시작과 동시에 자동으로 네트워크 드라이브를 연결 합니다.

net use /delete *

@echo off

set USER=[사용자명]

set PASSWD=[비밀번호]

net use [드라이브명] [\\경로명] %PASSWD% /user:%USER%

net use [드라이브명] [\\경로명]

net use [드라이브명] [\\경로명]

위에 한글로 표시한 부분은 각자 구성에 맞게 설정을 변경 하셔야 합니다.

 

예)

Set USER=me

Set PASSWD=P@SSWARD

net use x: \\192.168.10.2\public %PASSWD% /user:%USER%

Set oShell = Wscript.CreateObject("WScript.Shell")

oShell.Run("secedit /configure /cfg ""c:\users\juhan\test.inf"" /db test.sdb /overwrite")

 WScript.Sleep 500

 oShell.Sendkeys "y~"
Wscript.Quit

주의해야할점은 실행 명령어에 "이 들어가면 ""으로 지정해야한다는 것임

예전에 VB 스크립트로 올린 Internet Explorer 다른 유저로 실행하기 응용 편으로 PowerPoint 뿐만이 아닌 서로 다른 프로세스로 실행해야하는 상황에서 runas를 이용한 Multi Instance 생성 방법이라고 생각하시면 될것 같습니다.

먼저.
1. 계정을 생성후 패스워드를 입력 합니다. : 계정 = TEST 패스워드 = password
2. 마우스 오른쪽버튼을 쉬프트 키를 누른상태 "다른 계정으로 실행"
3. 사용자 아이디와 패스워드를 입력하면 다른 사용자를 이용한 두개의 프로세스를 확인할 수 있습니다. (즉 2개의 서로 다른 창으로 작업이 가능하다는 것이죠)

이것을 스크립트로 처리해 보았습니다. (계정 생성은 한번만 해주면 되므로 수동으로 해주세요)
 * 계정 TEST, passsword라는 패스워드로 계정을 생성했을시 office 2007 powerpoint 실행을 예로 삼았습니다.

스크립트

Option explicit
Dim oShell

set oShell= Wscript.CreateObject("WScript.Shell")
oShell.Run "runas /user:test ""C:\Program Files\Microsoft Office\Office12\POWERPNT.EXE"""

WScript.Sleep 400

oShell.Sendkeys "password~"

실행결과

 

프로세스 이름으로 프로세스를 Terminate 시키는 방법으로 아래 샘플을 이용하십시오.

 

방법 1. notepad.exe 를 Terminate 하는 스크립트를 생성 후 스케쥴링합니다.

 

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _

    ("Select * from Win32_Process Where Name = 'Notepad.exe'")

For Each objProcess in colProcessList

    objProcess.Terminate()

Next

 

프로세스가 하나 이상의 경우 가령 Mspaint.exe 도 종료시킬 경우 아래 부분을 추가합니다.

 

Set colProcessList = objWMIService.ExecQuery _

    ("Select * from Win32_Process Where Name = 'Mspaint.exe'")

For Each objProcess in colProcessList

    objProcess.Terminate()

Next

 

위의 부분을 메모장에 복사하신 후 Notepad.exe 를 삭제하려는 적당한 프로세스 이름으로 변경 후

저장하신 다음 확장자를 .vbs 로 변경하시면 됩니다.

 

방법 2. Notepad.exe 를 Terminate 하는 도스 명령에 대한 .bat 파일을 생성 후 스케쥴링합니다.

 

C:\> taskkill /IM notepad.exe

 

도스창에서 프로세스 리스트 및 PID 를 확인하기 위해 tasklist 명령을 사용하시면 됩니다.

 

C:\> tasklist

 

도스창에서 PID 로 Process 를 Kill 하기 위해 taskkill 명령을 사용하시면 됩니다.

 

C:\> taskkill /PID <PID>

 

추가 예:

TASKKILL /IM notepad.exe

TASKKILL /PID 1230 /PID 1241 /PID 1253 /T

TASKKILL /F /IM cmd.exe /T

TASKKILL /F /FI "PID ge 1000" /FI "WINDOWTITLE ne untitle*"

TASKKILL /F /FI "USERNAME eq NT AUTHORITY\SYSTEM" /IM notepad.exe

TASKKILL /S 시스템 /U domain\username /FI "USERNAME ne NT*" /IM *

TASKKILL /S 시스템 /U 사용자 이름 /P 암호 /FI "IMAGENAME eq note*"

----------------------------------------------------------------------------------------------------------------------@ECHO OFF
START %Windir%\Temp\CPUZ\CPUZ.EXE

TITLE 윈도우 최적화를 위한 CPU 캐쉬 등록
COLOR 0A

setlocal
ECHO ***********************************주의-필독***********************************
ECHO *                       실행된 CPU-Z의 화면을 보십시오                        *
ECHO *                                                                             *
ECHO *                                                                             *
ECHO *오른쪽 하단의 Cache에서 CPU의 Level 2 값을 보시고 아래에 정확히 입력하십시오 *
ECHO *                                                                             *
ECHO *******************************************************************************

:message
set /p in=CPU의 L2캐쉬 메모리가 얼마입니까(64/128/256/512/1024/2048)?: 
IF [%in%]==[64] goto cpu64
IF [%in%]==[128] goto CPU128
IF [%in%]==[256] goto CPU256
IF [%in%]==[512] goto CPU512
IF [%in%]==[1024] goto CPU1024
IF [%in%]==[2048] goto CPU2048
IF NOT [%in%]==[64] IF NOT [%in%]==[128] IF NOT [%in%]==[256] IF NOT [%in%]==[512] IF NOT [%in%]==[1024] IF NOT [%in%]==[2048] GOTO remessage

:remessage
ECHO 잘못 입력하셨습니다.
ECHO 다시 올바른 값을 정확히 입력하세요.
goto message

:cpu64
REGEDIT /s %systemdrive%\install\CPU_RAM\cpu\cpu64.reg
goto end

:cpu128
REGEDIT /s %systemdrive%\install\CPU_RAM\cpu\cpu128.reg
goto end

:cpu256
REGEDIT /s %systemdrive%\install\CPU_RAM\cpu\cpu256.reg
goto end

:cpu512
REGEDIT /s %systemdrive%\install\CPU_RAM\cpu\cpu512.reg
goto end

:cpu1024
REGEDIT /s %systemdrive%\install\CPU_RAM\cpu\cpu1024.reg
goto end

:cpu2048
REGEDIT /s %systemdrive%\install\CPU_RAM\cpu\cpu2048.reg
goto end

:end

메모리용량 레지스트리 등록
------------------------------------------------------------------------------------------------------------------------------
@ECHO OFF
TITLE 윈도우 최적화를 위한 메모리용량 등록
COLOR 0A

setlocal
ECHO 자신이 사용하는 총메인메모리값을 정확히 입력하세요.
ECHO 아래 제시값중에서 선택하세요
ECHO 아래 제시값과 일치하지 않는 경우는 가장 근접한 값을 써 주세요

:message
set /p in=총 메인메모리값이 얼마입니까(128/256/384/512/640/768/1024)?: 
IF [%In%]==[128] goto RAM128
IF [%In%]==[256] goto RAM256
IF [%In%]==[384] goto RAM384
IF [%In%]==[512] goto RAM512
IF [%In%]==[640] goto RAM640
IF [%In%]==[768] goto RAM768
IF [%In%]==[1024] goto RAM1024
IF NOT [%In%]==[128] IF NOT [%In%]==[256] IF NOT [%In%]==[384] IF NOT [%In%]==[512] IF NOT [%In%]==[640] IF NOT [%In%]==[768] IF NOT [%In%]==[1024] GOTO remessage

:remessage
ECHO *********************************************************************
ECHO *  잘못 입력하셨습니다.                                             *
ECHO *  아래 제시값중에서 선택하세요                                     *
ECHO *  아래 제시값과 일치하지 않는 경우는 가장 근접한 값을 써 주세요.   *
ECHO *  다시 올바른 값을 정확히 입력하세요.                              *
ECHO *********************************************************************
goto message

:RAM128
REGEDIT /s %systemdrIve%\Install\CPU_RAM\RAM\RAM128.reg
goto end

:RAM256
REGEDIT /S %systemdrIve%\Install\CPU_RAM\RAM\RAM256.reg
goto end

:RAM384
REGEDIT /s %systemdrIve%\Install\CPU_RAM\RAM\RAM384.reg
goto end

:RAM512
REGEDIT /s %systemdrIve%\Install\CPU_RAM\RAM\RAM512.reg
goto end

:RAM640
REGEDIT /s %systemdrIve%\Install\CPU_RAM\RAM\RAM640.reg
goto end

:RAM768
REGEDIT /s %systemdrIve%\Install\CPU_RAM\RAM\RAM768.reg
goto end

:RAM1024
REGEDIT /s %systemdrIve%\Install\CPU_RAM\RAM\RAM1024.reg
goto end

:end

@echo off

TITLE 유저 생성
COLOR 0A


setlocal
ECHO ***********************************주의-필독***********************************
ECHO *                       어드민 로컬 유저계정을 만듭니다                       *
ECHO *                                                                             *
ECHO *      가급적 서버 계정과 [동.일.화.] 하여 서버접근에 용이하게 하십시오       *
ECHO *    계정이나 패스워드 실수시 재실행이 불가능 하므로 신중히 입력하여 주세요   *
ECHO *             계정을 만들지 않을경우 초기에'exit'를 입력하여주세요            *
ECHO *                  입력을 다시할경우 'reset'를 입력하여주세요                 *
ECHO *******************************************************************************

:name
set /p user=사용하실 계정명은 무엇입니까?:
IF [%user%]==[] goto rename
IF [%user%]==[exit] goto end

:passwd
ECHO 다시입력=reset
set /p passwd=계정의 비밀번호는 무엇입니까?:
IF [%PASSWD%]==[] goto repasswd
IF [%PASSWD%]==[reset] goto name

:team
ECHO 다시입력=reset
ECHO 1=서비스운영,2=서비스개발,3=인터넷접수,4=연구개발,0=해당없음
set /p team=위에 해당하는 팀번호를 몇번입니까(1/2/3/4/0/reset)?:
IF [%team%]==[1] goto team1
IF [%team%]==[2] goto team2
IF [%team%]==[3] goto team3
IF [%team%]==[4] goto team4
IF [%team%]==[0] goto team5
IF [%team%]==[reset] goto name
IF NOT [%team%]==[1] IF NOT [%team%]==[2] IF NOT [%team%]==[3] IF NOT [%team%]==[4]  IF NOT [%team%]==[0] IF NOT [%team%]==[reset] GOTO reteam

:team1
cmdow @ /HID
echo cmdow @ /HID >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use Z: "\\192.168.0.125\public" %PASSWD% /user:%user% >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use P: "\\192.168.0.125\program_install" %PASSWD% /user:%user% >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use T: "\\192.168.0.125\Consult-Group" %PASSWD% /user:%user% >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use /persistent:yes >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
attrib +H "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
net user administrator /active:n
goto logon

:team2
cmdow @ /HID
echo cmdow @ /HID >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use Z: "\\192.168.0.125\public" %PASSWD% /user:%user% >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use P: "\\192.168.0.125\program_install" %PASSWD% /user:%user% >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use T: "\\192.168.0.125\Development-Group" %PASSWD% /user:%user% >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use /persistent:yes >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
attrib +H "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
net user administrator /active:n
goto logon

:team3
cmdow @ /HID
echo cmdow @ /HID >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd""
echo net use Z: "\\192.168.0.125\public" %PASSWD% /user:%user% >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use P: "\\192.168.0.125\program_install" %PASSWD% /user:%user% >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use T: "\\192.168.0.125\Internet-Group" %PASSWD% /user:%user% >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use /persistent:yes >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
attrib +H "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
net user administrator /active:n
goto logon

:team4
cmdow @ /HID
cmdow @ /HID >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use Z: "\\192.168.0.125\public" %PASSWD% /user:%user% >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use P: "\\192.168.0.125\program_install" %PASSWD% /user:%user% >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use T: "\\192.168.0.125\Research-Group" %PASSWD% /user:%user% >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use /persistent:yes >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
attrib +H "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
net user administrator /active:n
goto logon

:team5
cmdow @ /HID
cmdow @ /HID >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use Z: "\\192.168.0.125\public" %PASSWD% /user:%user% >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use P: "\\192.168.0.125\program_install" %PASSWD% /user:%user% >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
echo net use /persistent:yes >> "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
attrib +H "%AllUsersProfile%\시작 메뉴\프로그램\시작프로그램\netdrive.cmd"
net user administrator /active:n
goto logon

:logon
net user %USER% %PASSWD% /add
net localgroup Administrators %USER% /add
net accounts /maxpwage:unlimited

echo Windows Registry Editor Version 5.00 >> autologon.reg
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon] >> autologon.reg
echo "AutoAdminLogon"="1" >> autologon.reg
echo "DefaultUserName"="%USER%" >> autologon.reg
echo "DefaultPassword"="%PASSWD%" >> autologon.reg
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList] >> autologon.reg
echo "Administrator"=dword:00000001 >> autologon.reg
REGEDIT /S autologon.reg
del autologon.reg

goto end

:rename
ECHO *********************************************************************
ECHO *  잘못 입력하셨습니다.                                             *
ECHO *  이름을 다시 입력하여 주세요                                      *
ECHO *********************************************************************
goto name

:repasswd
ECHO *********************************************************************
ECHO *  잘못 입력하셨습니다.                                             *
ECHO *  비밀번호을 다시 입력하여 주세요                                  *
ECHO *  입력을 다시할경우 'reset'를 입력하여주세요                       *
ECHO *********************************************************************
goto passwd

:reteam
ECHO *********************************************************************
ECHO *  잘못 입력하셨습니다.                                             *
ECHO *  팀번호을 다시 입력하여 주세요                                    *
ECHO *  처음입력을 다시할경우 'reset'를 입력하여주세요                   *
ECHO *********************************************************************
goto team

:end