[yurfed]

сохронить его по дате и чеслу ! »

В таком варианте -ни как.

[lAGRESSORl]

В таком варианте -ни как. »

???? ЧТо вообше не как ??

[lAGRESSORl]

Вот может кому пригодиться !
Авто логон, (если комп под паролем то можно записать автологон и при перезагрузки заходит автоматически) при нажатии LogOff просит пароль, а также при сочетании клавишь Win+L.

Код:

'***********************************************************************************
'Autologon
'***********************************************************************************
'On Error Resume Next
strComputer = InputBox("Please Insert Name Of Computer" & vbCRLF _
& "Dot - Means This Computer ","Computer Name",".")
strUserName = InputBox("Please Insert Name Of User","User Name","ZDES_IMYA_USERa")
strPassWord = InputBox("Please Insert Password Of User","Password","SDES_PASS")
'***********************************************************************************
Const HKEY_LOCAL_MACHINE = &H80000002
'***********************************************************************************

Select Case strUserName
Case "Hryack" ExitScript
Case "" ExitScript
End Select


Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"

strAutoAdminLogOn = "AutoAdminLogon"
strAutoAdminValue = "1"

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strAutoAdminLogOn,strAutoAdminValue

strDefaultDomain = "DefaultDomainName"
strDefaultDomainValue = "wshome"

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strDefaultDomain,strDefaultDomainValue

strDefaultUser = "DefaultUserName"
strDefaultUserValue = strUserName

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strDefaultUser,strDefaultUserValue

strDefaultPassword = "DefaultPassword"
strDefaultPasswordValue = strPassWord

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strDefaultPassword,strDefaultPasswordValue

Wscript.Echo "Autologon to User  [" & strUserName & "]  Done"

Sub ExitScript()
Wscript.Echo "Please Enter Valid User Name"
Wscript.Quit
End Sub

Сохранить в VBScript Script File

Вот отмена скрипта !

Код:

'***********************************************************************************
'Autologon
'***********************************************************************************
'On Error Resume Next
strComputer = InputBox("Please Insert Name Of Computer" & vbCRLF _
& "Dot - Means This Computer ","Computer Name",".")
strUserName = InputBox("Please Insert Name Of User","User Name","SDES IMYA")
strPassWord = InputBox("Please Insert Password Of User","Password","SDES PASS")
'***********************************************************************************
Const HKEY_LOCAL_MACHINE = &H80000002
'***********************************************************************************

Select Case strUserName
Case "Hryack" ExitScript
Case "" ExitScript
End Select


Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"

strAutoAdminLogOn = "AutoAdminLogon"
strAutoAdminValue = "0"

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strAutoAdminLogOn,strAutoAdminValue

strDefaultDomain = "DefaultDomainName"
strDefaultDomainValue = "wshome"

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strDefaultDomain,strDefaultDomainValue

strDefaultUser = "DefaultUserName"
strDefaultUserValue = strUserName

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strDefaultUser,strDefaultUserValue

strDefaultPassword = "DefaultPassword"
strDefaultPasswordValue = strPassWord

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strDefaultPassword,strDefaultPasswordValue

Wscript.Echo "Autologon to User  [" & strUserName & "]  Done"

Sub ExitScript()
Wscript.Echo "Please Enter Valid User Name"
Wscript.Quit
End Sub

[amel27]

lAGRESSORl,

Как сделать снимок экрана, чтобы сохранить его по дате и числу ! »

например, при помощи бесплатной утилиты CmdCapture:

Код:

For /F "Tokens=1 Delims=." %%i In ('WMIC OS Get LocalDateTime') Do Set FileName=%%i.JPG
CmdCapture.exe /f "%FileName%"

Вот может кому пригодиться »

эта ветка по CMD-скриптам, а не VBS!

[lAGRESSORl]

amel27 THX

[Medic84]

Я в написании батников не разбираюсь вовсе... Может кто подскажет где взять книгу, или chm файл для новичков, очень хочется научиться!!

[zeroua]

Medic84, шапке темы есть нужная информация, а дальше все зависит только от вас...

[Medic84]

Что то я ничего не понимаю.... Хочу скопировать папку(я начинаю с малого) Ввожу команду

Код:

@echo off 
xcopy E:\Games\Callof~1\players E:\Backup 
pause

И выводит сообщение не найден файл players
Что я делаю не так???

[Petya V4sechkin]

Medic84, для начала опцию /E добавьте.
А вообще: xcopy /?

Возможно, короткое имя Callof~1 не существует.

[Medic84]

Возможно, короткое имя Callof~1 не существует. »

НУ тогда как сделать??? Если вводить полное название, то выдает ошибку еще страннее которую мне не понять....



Все, я понял.... И правда короткого названия не было.... Сократил Имя папки... ОНО ДОЛЖНО БЫТЬ БЕЗ ПРОБЕЛОВ И СПЕЦ. ЗНАКОВ!!!